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Wie die „Gompute mit“-Redaktion bereits in Heft 12/85 berich- 
tete hat jetzt Mastertronic ihre neuen M.A.D.-Games vorgestellt. 
Mit diesen MADGAMES, Mastertronic Added Dimension, hat Ma- 
stertronic den Superhit gelandet. Die MADGAMES bieten für einen Preis 
von rund 15,-- DM Grafik, Sound und Action, wie es sonst nur Spiele in der 
Preisklasse zwischen 49,-- DM und 99,-- DM können. Zwei dieser MADGAMES 
wurden jetzt vorgestellt und sind ab sofort erhältlich. „Hero ofthe golden Talisman“ bie- 
tet in über 60 verschiedenen Räumen jeweils vier verschiedene Computerbildschirme. 
Dazu kann man nur sagen: „Action live“. Nicht weniger fantastisch sind die grafischen 
Leistungen des Spiels „Ihe lastV8“. Neben einer außergewöhnlichen Grafikbesitzt ‚The 
last V8“ noch eine echte Sprachsynthese, einen Sound, der kaum überbietbar ist. 
Beide Spiele ste- 
hen für den Com- 
modore 64 und 
Commodore 128 
= zur Verfügung und 
kosten wie alle 
7 Computer-Spiele 
=) der MADGAMES- 
Serie nur ca. 15,-- 
DM. 


Weitere Software- 
Neuerscheinungen 
auf $. 63 dieser Aus- 
gabe. 








In unser heutigen Ausgabe stellen wir Ih- 
nen zwei neue Diskettenboxen vor, die ab 
sofort überall im Handel erhältlich sind. 
Gleichzeitig veröffentlichen wir einen Be- 
richt über den Kauf von Disketten: 


@ welche Kriterien müssen beim 
Kauf von Disketten berücksich- 
tigt werden 


@ welche Disketten für welche 
Zwecke 


® wie berechnet man die Spei- 
cherkapazität einer Diskette 


® usw. 


Lesen Sie mehr darüber auf Seite 10. 
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__programme 


Neu: Sonderzeichen werden durch Klartext ersetzt! 





Eingabe-Hinweise für Commodore G-64-Benutzer! 


Um Ihnen die Eingabe unserer Listings zu erleichtern, 
werden zukünftig alle C-64-Listings ohne Steuerzeichen 


Tastenbezeichnungen für Steuercodes 


CURSOR UNTEN 
CURSOR HOCH 
CLEAR SCHIRM 
EINFUEGEN 
CURSOR IN ECKE 
DELETE 

CURSOR RECHTS 
CURSOR LINKS 
LEERZEICHEN 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
SCHWARZ 

WEISS 


Achtung: Einige Listings enthalten das Zeichen "-", 


Folgendes Beispiel demonstriert die Arbeitsweise unseres Systems: 





STANDARP AUSDRUCK: 


abgedruckt, Alle Steuerzeichen werden in unseren 
LISTINGS durch Klartext, welcher die Taste kennzeich- 


TASTE NEBEN RECHTEM SHIFT 
SHIFT-TASTE & TASTENEBENRECHTEMSHIFT 
SRIFT-TASTE & 2. TASTE GANZ RECHTS OBEN 
SHIFT-TASTE & TASTE GANZ RECHTS OBEN 
2. TASTE VON GANZ RECHTS OBEN 

TASTE GANZ RECHTS OBEN 

TASTE GANZ RECHTS UNTEN 

SHIFTTASTE & TASTE UNTEN RECHTS 
LEERTASTE (GROESSTE TASTE} 
FUNKTIONSTASTE FI 

FUNKTIONSTASTE F3 

FUNKTIONSTASTE FS 

FUNKTIONSTASTE F7 

FUNKTIONSTASTE F2 

FUNKTIONSTASTE F4 

FUNKTIONSTASTE F& 

FUNKTIONSTASTE FB 

CONTROL-TASTE & 1 

CONTROL-TASTE & 2 


RED 
CYAN 
PURPLE 
GREEN 
BLUE 
YELLOW 
RVSON 
RVSOFF 
ORANGE 
BROWN 
LIG.RED 
DGREY 
MGREY 
LIG.GREEN 
LIG.BLUE 
HGREY 
CTRL 


ROT 
TUERKIS 
PURPUR 
GRUEN 
BLAU 
GELB 
INVERSE EIN 
INVERSE AUS 
ORANGE 
BRAUN 
HELLROT 
DUNKELGRAU 
MITTELGRAU 
HELLGRUEN 
HELLBLAU 
HELLGRAU 
CONTROL 


| 


net, ersetzt. Fine Tabelle der Tastenfunktionen finden Sie 
in jedem Troric-Magazin, 


(TRONIC-NORM) | 


CONTROL-TASTE & 3 
CONTROL-TASTE & 4 
CONTROL-IASTE & 5 
CONTROL-TASTE & 6 
CONTROL-TASTE& T 
CONTROL-TASTE & 8 
CONTROL-TASTE & 9 
CONTROL-TASTE & 0 
COMMODORE-TASTE & 1 
COMMODORE-TASTE & 2 
COMMODORE-TASTE & 3 
COMMODORE-TASTE & 4 
COMMODORE-TASTE & 5 
COMMODORE-TASTE & 6 
COMMODORE-TASTE & 7 
COMMODORE-TASTE & 8 
CONTROL-TASTE ZUSAMMEN MIT 
DEM NACHFOLGENDEN ZEICHEN. 
(ZB. CTRLA ENTSPRICHT CTRL& A) 





dieses Zeichen entspricht dem Pfeil nach links (Taste ganz links oben) 





10 AF="TEST"SPRINT'GRBEKIISSHALLORRBLEUTE !"SPRINT"TRONIC VERLAG" 


z0 FRINT"LISENDE" 


UNSER NEUER AUSDRÜCKE DER GLEICHEN ZEILEN: 


10 A&="TEST":FRINT"ICLEAR RIGHTZ DOWN R 
EDFHALLO{RIGHTZ BLUEYLEUTE{SPACEH '"SPRIN 


TITRONIEISPACEYVERLAG" 
=0 FRINT"ICYAN PURPLE GREENIENDE" 


Wie in dem Beispiel zu erkennen ist, wird das Herz-Sym- 
bo! durch das Wort CLEAR ersetzt. Dies bedeutet, Sie 
müssen die Taste CLEAR drücken, um das Herz-Symbol 
zu erzeugen. Sollten Sie einmal nicht wissen, welche Ta- 
ste gemeint ist, hilft Innen ein Blick in unsere Tastenta- 
belle bestimmt weiter. 

Um im Listing Tastenbezeichaungen von Grafikoder nor- 
malen Texten zu unterscheiden, werden alle Tastenkenn- 
zeichnungen in geschweifte Klammern gesetzt. Diese 
dürfen selbstverständlich nicht eingegeben werden. 
Auch Leerzeichen in- nerhalb geschweifter Klammern 
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dienen nur zur Trennung einzelner Tastenfunktioren und 
dürfen ebenfalls nicht eingegeben werden. Um die Ta- 
stenfunktionen noch besser hervorzuheben, werden die- 
se In unterstrichener Kursivschrift (Schrägschrift} abge- 
druckt, 

Steht hinter einer Tastenfunktion eine Zahl, welcheeben- 
falls unterstrichen ist, bedeutet dies, daß die letzte Ta- 
stenfunktion mehrmals betätigt werden muß. Die in un- 
serem Beispiel abgedruckte Funktion RIGHT3 bedeutet, 
daßdte Taste RIGHT (Gursorrechts) 3 mal hintereinander 
betätigt werden muß. Auch einzeine oder mehrere Leer- 


Computs emöb 





Deut: 35 


x117> 





zeichen innerhalb von Anführungszeichen werden auf 
diese Art gekennzeichnet. Das bislang übliche Abzählen 
einzelner Zeichen entfällt somit völlig. 

Alle Zeichen außerhalb von den geschweiften Klammern 
werden normal abgedruckt und auch eingegeben. 

Auf den ersten Blick hört sich das sicher etwas kormpli- 
ziert an, ist jedoch in der Praxis ganz einfach, Wenn mar 
sich erst an.die in Klartext geschriebenen Steuerzeichen 
gewöhnt hat, wird man den großen Vorteil dieser 
Schreibweise erkennen, 


Programme. 






Checksurrmer& 1.0 ist ein Prüfsummen-Pragramm, was 
die Eingabe von Programm-Listings zum wahren Ver- 
grügen macht. Tippfehler werden schon während des 
£ingehens der einzelnen Programmzeilen erkamnt. Die- 
ses System zusammen mit dem neuen Druckverfahren 
gewährleisten das unsere Listings meist fehlerfrei ange- 
druckt werden. 


Arbeitsweise und Aufbau unseres Ghecksummers: 

Unser Öhecksummer besteht aus einem kleinen Maschi- 
nenprogramm welches als Basic-Loader abgedruckt ist. 
Tippen Sig diesen Loader ein und speichern Ihn aufKas- 
sette oder Diskette, denn Sie können ihn zukünftig immer 
wieder benutzen. 


Der Start erfolgt durch den Befehl „RUN“. Nach kurzer 


Zeit meldet sich der Rechner mit der Meldung „TRONIG | 


„=. Der Checksummer ist nun aktiv und man kann ein 
beliebiges Tromic-Listing eingeben. Nachdem eine Zeile 
mit RETURN abgeschlossen wird, erscheint links oben 
auf dem Schirm eine Prüfzaht. Vergleichen Sie diese mit 
der Zahl im Heft hinter der Zeile. Stimmt die Zahlüberein, 
ist die Zeile richtig eingegeben. 

Auf diese Weise können Sie das gesamte Listing schnell 
und fehlerfrei eingeben. 

Interessant ist auch, daß bei der Eingabe von Zeiten die 
üblichen Abkürzungen benutzt werden können, ohne die 


Austührung der einzelnen Befehle keinen Einfluß haben. 
Sie können Frr Programm auch starten, dern der Gheck- 
summer und Ihr Pregramm beeinflussen sich nicht ge- 
genseitig. Wollen sie derı Checksurnmer abschalten, ge- 
ben Sie einfach POKE 1,55 ein oder betätigen Sie die Ta- 
sten-Kornbination RUNSTOP und RESTORE. 

Aktivieren können Sieden Checksummer jederzeit (auch 
nach RESET) mit POKE 1,52. 


Wer den Checksummer nicht eingeben möchte kann diesen auch 
unter der folgenden Bestellnummer beziehen: 
Bestellnummer: 


8 REM ####* TRONIE CHECKSUMMER ###% 

i REM VERSION E 1.0 BEI FRANK BRALL 
ZUHEMI ESS nes engen 

5 FOR 1=837 TO 10908=:READ A:5=5+A 

4 FOKE I,A:NEXT IsIF 5<X>16377 THEN PRINT 
"FEHLERTSPACEFINTSPACEIDATA-ZEILENTSPACE 
FI{ISPATE> (IO-1F}": STOP 

5 5Y5 832:5=0:FGR 1=584544 TO 586053: READ 
A:5=5+A 

& FOKE I1,A:NEXT I:IF 5<{>189719 THEN PRINT 
"FEHLER{SPACEFIN{SPACE>DATA-ZEILENISPACE 
3 IISPACEI 29-36": STOF 

7 5=0:FOR I1=48979 TOD 47005: READ A:5=S+A 
B FOKE 1,A:WNEXT I: IF 5<>2888 THEN PRINT" 
FEHLER {SPACEI INISPACEIDATA-ZEILEN{SPACEF 
I ISPACE3 (46-47)":5TOF 

9 FRINT'IDOKNZ2IAKTIVIERENTSPACEYI:E ISPACE} 
POKE{TSPACEIL „S3{SPACELSFAUSSCHALTEN: {SPA 
CE3FOKETSPACEI 1,55” 2 NEW 

10 DATA167,0,132,254,162,1,189,137,3,133 
‚255,1580,0,177,254,145,254,136 

11 DATA7OB, 249,230,255,165,755,221,139,3 
‚208,238,202,16,230,169,96,141,49 

12 DATALS5S,169,228,141,50,165,169,53,133 
‚1,169,141,133,2534,162,3,124, 255 

13 DATA150,0,177,254,240,7,32, 202,241 ,20 
0,76,120,3,169,2,141,32,208 

14 DATAF65,160,224,192,0,147,17,32,32,75, 
35,35,33,32,84,82,79,78 
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Über 2000 Programme immer auf Lager. 


Checksumme zu verändern. Leerzeichen außerhalb von | EVIOK Kassette 15 IM 
Anführungszeichen werden ignoriert, da diese auf die ! GWIOR Disketie 15 DM 
<116> 15 DATA73,67,45,86 ,67,82,76,65,71,32,67, 
<10> 72,69,67,73,83,85,77 ı129> 
<148> 16 DATA77,67,982,32,35,25,35,35,139,13,13 
'<568> 232,32,32,32,32,32,32 £147> 
17 DATAS2,32,32,32,32,86,697.82,83,73,79, 
78,32,67,32,49,46,48 ir 
1323 1B DATA13,13,32,32,32,32,52,32,40,67,41, 
32,70,.82,55,78,759,32 “945 
<21> 19 DATAs6 ,82,65,76,76,32,40,.49 ,48,46,56, 
53,41,13,0 2125 
27 DATA159,0,141,107,191,141,108,191,141 
2219> „109,191,150,2,24,177,95,200,113 27 > 
33} 30 DATAIS,141,109,171,160,3,200,177,95,2 
40,44,201,34,208,10,173,107,1971 291> 
31 DATA7Z,1,141,107,191,177,95,174,107,1 
«235 91,208,4,201,32,240,228,238,108 x<1287 
352 DATA191,174,108,191,24,177,95,109,107 
„191,141,109,191,202,208,244,76,120 _ <284> 
265 35 DANTA228 ,56,76,193,228,72,32,201,255,1 
70,104,144,1,1398,96,32, 240,255 «101 > 
<176> 34 DATA147,105,191,140,108,191,152,0, 140 
‚0,24,.22,240,255,169,91,32,12 <B9 + 
<i47% 35 DATA225,169,0,174,109,1971,32,205,189, 
167,93,76,83,391,173,33,208, 145 22393 
Kapgn 36 DATA?IF,95,105,2,164,145,200,208,4,19 
: 7,151,208,247,96 KROF> 
«140> 44 DATAS2,12,225,32,53,171,32,65,171,472 
„1068,191,174,105,191,24,32,240 13% 
«1585 47 DATA255,76,128,154,24,0,0,5,200 “bu 
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Ziel des Spiels: 


Das Spiel ist eine Mischung von „LODE- 
RUNNER“, „MR ROBOT AND HIS FACTO- 
RY“, „HARD HAT MACK“ usw. 

„ROBO* ist ein Roboter, der sich in einem 
Labyrinth von Aufzügen, Steinen, Falltü- 
ren, Förderbändern usw. seine Nahrung in 
Form von Disketten suchen muß, Der 
Spieler erhält dabei für jede Diskette 10 
Punkte. Nun die einzelnen Funktionen des 
Roboters: 


GEHEN: (Joystick links/rechis} 
Nach links und rechts: auf Förderbändern 
ist keine Änderung der Richtung bzw. kein 
Stillstand möglich. Auf allen anderen Fel- 
dern kann er sich in beide Richtungen be- 
wegen. 


AUF- UND ABBEWEGEN: (Joystick rauf/runter} 
Aufwärts mit dem Aufzug; auf- und ab- 
wärts nur auf der Leiter. 


GRABEN: (Feuerknopf) 

Gegraben kann nur auf dem braunen Zie- 
gel werden; „ROBO“ fällt dadurch um ein 
Feld nach unten. 


| ZERTRETEN: 
Geht man über ein Feld Nr. 5, zerbricht die- 
ses, Bleibt man darauf stehen, fällt man 
nach unten. 


| SPRINGEN: {Feuerknopf) 
‘Springen kanın man auf allen Feldern, au- 
I ‚Ber Feld Nr. 1 (Diskette), Feld Nr. 3+4 (För- 
| derbänder) und Feld Nr. 7 (Brauner Zie- 
gel). Im höchsten Punkt des Sprunges 
kann man 1 Feld nach links bzw. rechts 
gleiten (durch entsprechende Bewegung 
des Joysticks). 
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ZERSTÖREN DES ROBOTERS: 


Fällt „ROBO“ über eine Distanz von mehr 
als 2 Feidern frei nach unten, so geht er 
kaputt. Pro Spiel hat man eine Reserve von 
5 Roboiern. Verläßt der Roboter in irgend- 
einer Richtung den Bildschirm, ist er 
ebenfalls verloren. 


NÄCHSTES LEVEL: 

Hat man es geschafft alle Disketten zu er- 
wischen, so kommt man ins nächste Le- 
vel. 


Will man dem Roboter ein vorzeitiges En- 
de bereiten, drückt man einfach die „Q*- 
Taste. 


Feld 3 - DISKETTE 


DD, 


a 


Nahrung für den Roboter. Sie wird durch 
Berühren des Roboters aufgenommen. 


Feld 2 - AUFZUG - 
Der Roboter wird nach oben befördert. 


Nach links und rechts kann abgesprungen 
werden. 


Feld 3 - FÜRDERBAND LINKS 


BZ 


Der Roboter wird nach links befördert; kei- 
ne Bewegung möglich. 


Feld 4 - FÜRDERBAND RECHTS 


Wie Feld 3, nur rechts 


Compuhe mib 
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FELD 5 - STEIN ZERBRECHLICH 


BR 
DL 
Dieses Feld kann nur einmal betreten wer- 


den, da es sofort zerbricht. Alle Richtun- 
gen, außer graben, sind möglich. 


Feld 6 - STEIN FEST 
SIN 
N 
Unzerbrechlich; sonst wie Feld 5. 


heflrot 


Feld 7 - STEIN WEICH 


braun 


Wie Feld 5; wird jedoch nur zerstört, wenn | 
der Feuerknopf gedrückt ist. Springen ist | 


daher unmöglich. 
Feid 8 - LEITER 


0 


Alle Richtungen sind möglich. 


Starten des Spiels: 


Nach dem Laden und Starten des Pro- | 
gramms „RÜBO“ erscheint vorerst das Ti- | 
telbild. Nach der Aufforderung „PRESS 
ANY KEY“ drückt man eine Taste bzw. den | 
Feuer«nopf des Joysticks an Port 2. Jetzt 
erscheint Game-Menue. Man hat nun fol- 
gende Auswahl: 


1.) PLAY GAME 
Start des Spiels. Es ist darauf zu achten, 


programme 


daß sich die Diskette mit den Levels im 
| Laufwerk befindet. Die Anzahl der Levels 
| spielt keine Rolle. Wenn sich z.B. nur 5Le- 
| vels wie in diesem Fall auf der Diskette be- 
finden, wird nach Level 05 wieder mit Le- 
vel 01 begonnen. 

| Während des Spiels kann die Anzahl der 
Roboter mit der „Q“-Taste vermindert wer- 
den. Dies ist dann sinnvoll, wenn sich der 
Roboter in einer Sackgasse befindet, aus 
| der er sich nicht mehr befreien kann. 


| 2.) LEVEL EDITOR 

Man gelangt in Editor-Menue des Level 
; Editors. Eine genaue Beschreibung folgt 
nachstehend, 


3.) SEE SCORES 

Die besten 5 Spielergebnisse werden auf- 
| ‚gelistet. Durch das Drücken einer Taste 
| zurück ins Menue 1. 


4.) SAVE SCORES 
Die Bestenliste wird auf Disk geschrieben. 
Dann wird der Disk-Status und eventuelle 
Fehlermeldung der Diskettenstation an- 
| gezeigt. Durch Druck einer Taste zurück 
ins Game-Menue. 


Der Level Editor: 


Durch Drücken der Taste „F3“ im Game- 
| Menue gelangt man in das Editor-Menue. 
| Nun hat man folgende Möglichkeiten: 


; 1) EDIT LEVEL 

ı Wählt man diese Funktion, wird als erstes 
| die Nummer des zu editierenden Levels 
erfragt. Diese kann zwischen 1 und 99 lie- 
“gen. Man kann also bis zu 99 eigene Le- 
vels erstellen. Natürlich können auch be- 
: reits vorhandene Levels geändert bzw. ge- 
löscht werden. Die Anzahl der Möglichkei- 
ten ist beinahe unendlich. Hat man nun 
die Nummer des Levels eingegeben, wird 
dieser, falls vorhanden, von der Diskette 
geladen und kann editiert werden. Ande- 
renfalls wird er neu erstellt. Im oberen 
Drittel des Bildschirms erscheint nun ein 
Balken, der die verschiedenen Felder zur 
Editierung beinhaltet. Mit dem Joystick 





wird nun ein Feld angewählt, indem man 
den weißen Rahmen (Cursor) auf das ge- 
wünschte Feid bewegt und die Feuertaste 
drückt. Nun kann man in den unteren bei- 
den Dritten des Bildschirms sein eigenes 
Level erstellen. Will man das Level lö- 
schen, drückt man die „C"-Taste. Hat man 
ein Level fertig erstellt, wird es mitder „Q"- 
Taste in den vorgesehenen Level-Speicher 
übernommen. 


2.) PLAY LEVEL 

Bevor man ein neu erstelltes Level auf Dis- 
keite speichert, solite man ein Probespiel 
machen, da es nicht sinnvoll wäre, ein Le- 
vel zu übernehmen, das man unmöglich 
schaffen kann, da es möglicherweise eine 
Sackgasse enthält. 


3.) SAVE LEVEL 

Hat man ein neues Level erstellt und ge- 
testet, kann man es mit dieser Funktion 
auf Diskette speichern. War ein Level mit 
dieser Nummer bereits auf Diskette vor- 
handen, wird es überschrieben. 


4.} RETURN FO GAME 


-Mit dieser Funktion gelangt man wieder 


zurück ins Game-Menue. 


BEMERKUNG: 

Das Spiel „ROBO“ ist bereits mit einemLe- 
vel lauffähig. Das Programm arbeitet fol- 
gendermaßen: 

Bei Start des Spiel wird auf der Diskette 
nach Leve! 01 gesucht; wird dieses gefun- 
den, startet das Spiel. Hat man das Level 
01 geschafft, wird Level 02 geiaden usw;; 
Wird nun kein fortlaufendes Levei mehr 
auf der Diskette gefunden, wird wieder mit 
Level 01 begonnen. 


C&4 LISTINGS MIT CHEGESUMMEN {C V1.0 


Ladeanweisungen: 


1.) „ROBO1“, „ROBO2“ und „ROB03* ab- 
tippen und speichern. Jetzi „ROBO LE- 
VELMAKER" abtippen und auf Disk ab- 
speichern. 


Nun laden Sie „ROBO1“ und starten das 
Programm. Dieses Programm erzeugt die 
neuen Zeichen, verschiebt den BASIC- 
Speicherbeginn, lädt „ROBO2“ von Dis- 
kette und startet das selbe. „ROBO2" er- 
zeugt den Maschinencode und die 8 Spri- 
tes. Dann verschiebt es den BÄSIC-Spei- 
cher wieder zurück, schreibt ein kleines 
Startprogramm, verschiebt den BASIC- 
Speicher abermals und lädt zum Ab- 
schluß „ROBO3" 


2.) Während des Ladens von „ROBOS“ er- 
scheint auf dem Bildschirm folgende Zei- 
le: 

POKE646,0:POKE44,8:SAVE"ROB0“,8 


Wenn „ROBO3“ fertig geladen ist, springt 
der Cursor in diese Zeile, Sie brauchen 
nun nur „RETURN“ zu drücken, und das 
fertige Programm „ROBN“ wird auf Dis- 
kette gespeichert. 

Diese Vorgänge sind natürlich nur beim 
ersten Erstellen des Programms notwen- 
dig. Soll das Programm später wieder ge- 
laden werden, geschieht das einfach mit 
LOAD”ROBO",8. 

Bevor allerdings gespielt werden kann, 
muß noch das Programm „ROBO LEVEL- 
MAKER" geladen und gestartet werden.- 
Dieses Programm schreibt nun die ersten 
5 Spiel-Levels auf Diskette. 

Wenn Sie alle diese Punkte nacheinander 
ausgeführt haben, kann das Spiel begin- 
nen. 








100 REMERRERRERHH ER HEHE HEHE RR HE 

101 Rem  ROBOI ZEICHEN #* 

102 REM# iD} 1985 BY MR-SOFT * 

105 REM® RONALD HAYER * <128> 

104 REM#® A-4042 THENING 24/AUSTRIA %* si88: i 

1095. BREMSE <pPibr 

165 FÜKES6, 78: CLR: FOKESS2D1 ,5; FOKESSZBO, 

S:PRINT"ICLEAR BLACKIFLEASEISPACEIWAIT. . 

." . A7U> 

107 S=6: FORI=5000T0&041  READA: 5=5+A: FORE 

I,„A:NEXT - «102% 

198 EFSXrA785STHENX=110: YAl 12: GOTDI1SO szlzr 

107 SYSSsooo <1837 

110 DATA120,1569,51,135,1,150,,132,254,15 
Compute mib 


LE —,.#7° 2 


2/86 


2/86 


2,252,1682,32,134,255,152, 209, 134,253 

111 DATA177,252,145,254,200,208,247,230, 
253,230,2395,165,2535,201.498,144,237, , 162 
3112 DATS55,134,1,88,9& 

I13 KREMER EHE 
114 REM# CODES FUER ZIFFERN * 
115 REM EEE 
114 5-6: FORI=8493, TDE&ASS5: READA: S=5+A: FOKE 
IT,A: NEXT 

117 IFS< »Z7&Z4THENX=110: Y=1726: 6070180 
112 DATAL28,60,50,50,55,129,255,253,254, 
232 ,752,252,252,254,2755,255,67,62,63,63 
117 DATAST7,129,255,255,194,252,297,252,1 
74,129, 255, 255,194 ,252,2752,252,257, 254 
120 DATAZ55,255,194,752,252,252,194,129, 
255,259,658,60,50,50,66,129,255, 255,254 
121 DATA2S2,2532 „252,252, 254,255, 255,66,5 
0,60,60,65,129 ,253, 255,194, 2392 ,252,252 
122 DATA194,129,255,2953,255,255,1729,56,6 
0,60,60,176,255,255,254 ,252,252,252,252 
1235 DATAZ54, 259,259, 129,194,252,252,252, 
174,255,255,129,1979 ,252,252,252,194,,255 
124 DATAZSS,128,60,&0,60,60,66,255,255,1 
29,67,63,63,53,67,255,255,129,57,53,63 


25 DATA63,67,255,255,129,66,60,60,60,12 


6,255,2573,129,66,680,60,50,66,,255,255 

i2& DATA129,58,60,60,50,55 

127 REM HEHE HH HK EHRE 
1iZB REM* CODES FUER ZEICHEN D-J * 
129 REMRSBBAHHHSHHHSIHIHIHHHHHHIHH HE 
130 5=0: FDRI=8735T0879 1: READA: S=5+A: FOKE 
I,A:NEXT 

131 IFSx >9758B8THENX=132: Y=134:50TD180 

132 DATAZZ3,223,223,0,251,751,251,0,223, 
223,223,0,7251,251,251,0,195,1975,255 
135.DATA195,195,195,255,195,299,255,255, 
=55,0,0,0,0,15,15,15,15,15,15,15 

154 DATA1IS,240 ,240,240,240,245,246, 745,2 
45,240,248,257,254,255,247, 293,241 

133 REFERENT 
135 REM* CODES FUER ZEICHEN M,„F,Q,?T * 
137 REM HERE EEE 
139 S=0: FORI=1T04: READA= S=5+A: FÜRJ=OTRY: 
READE: S=S+B: FOKEB1FZ+BRA+J ,BSNEXTI I 

137 IFSSFSOBPTHENX=140: Y=14S: G0TD1&0 

140 DATA77,253,255,255,255,240,240,240,2 
40 

i41 DATAGO,15,15,15,15,240,240,240,740 
142 DATAB1 ,255,2595,255,255,15,15,15,15 
1453 DATA&3,0.178,128,102,102,174,126,0 
144 REMRRERRREHERERHFRN RT NN ER REIH IR EN 
145 REM* CODES FUER IRR * 
145 FEMRHHURHR EHE 
147 5=0: FORI=10240T011009STEF258: FORJ=OT 
U21:READA: S=S+A: FÜKEI+J „AsNEXTJ,I 

149 IFSCHZOLSZSTHENX=149: Y=1581ı50T0160 
1497 DATAZSS,255,0,0,255,255,0,0,204,204, 
253,231 ,231,255,0,0,204, 204,255 221 

150 DATA231,255,0,0,255,255,1,131,1997,22 
4,255,U0 

151 DATA255,0,0,235,255,0,0,255,153,153, 
=55,221,231,255,0,0,102,107, 255,231 

152 DATAZI1,255,0,0,255,255,1,121,199,23 
9,255,0 

15% DATA0,0,259,255,0,0,255,255,51,51,25 
5,231,231,755,0,0,51,51,255, 231,251 

154 DATAZSS,O0,0,259,255, 235, 255,255,255 
255,0 

155 DATAG, 255,255,0,0,255,255,0,102, 107, 
255,231.231,255,0,0,153 153,255, 721 

154 DA1AZ31,255,0,0,235,259,2595,25393,255, 
255,253,0 


157 FRINTPXCLEAR GREENIFTSS, 150: ELR:FI744 


A227 
SAT: 
«1565 
224 > 
+45> 
226: 


225 


De ste 
<Bi> 
x214> 
212> 
<108> 
“221> 


«110> 


<71> 

1975 
S2EBH 
«11#F> 


s2a0> 


SErEr 
iin: 


<54> 
4 
<106> 
22463 
<i46> 
2248) 


Sz00> 
BB} 


1785 
x5ä> 


<144% 


249% 
22555 
<157% 


“1> 


ENTE 


48> 


<107> 
8975 


<149% 


EN 
| 
bus 
w 


Sl 


‚programme 


+48: FT12288,0: LI'CHRE 124) "RGBOF"CHRE 34) 
og" 

1589 FRINT" IDOHANSIRUNV 

159 FOKESA31,19: FOKEA32, 13: FOKESSS 13: POK 


E198,2:5T0P 
150 REM HH 
161 REM* DATA ERROR %* 


i62 REM EEE RN HH ER E 


163 FRINT"{DOHNIDATAISPACEHERROR{SPACEIT 





BISPACESLINESP’X"-"YEEND 


100 FEMSERREET EN TEE FRE 


101 REM# ROBO2 &510-CODE * 
102 REM#* (231985 BY MR-SOFT * 
103 REM* RONALD MAYER * 
io4 REM® A-4u&2  THENING Z47AUSTRIA * 


105 REM 
16& REM* MACHINE-CODE FARTI * 
107 BREMER EHER INH FE EEE 
108 FOFESSZBI ,„S: FOKESEZBO, 5: PRINT"{RLEAR 
BLACKFTCREATINGTISPACEFMACHINE-TODEISPACHE 
>31" 

10% S=0: FÜORI=4640 04281: READA: S=S+A: FOKE 
I.„A:NEXT 

110 IFS< »2751ATHENFRINT"DATA-ERROR1 "END 
111 FRINT"DATAS{SPACHFISSPACE HD. K.. " 

112 DATA187,0,133,292,189,160,133,252,1& 
2,32,180,0,177,252,145,252,200,208 

i1lr DATAZ249,202,240,5,220,253,76,212,15, 
169,54,133,1,120,169,244,167, 15,141 

114 DATA20,3,142,21,3,098,06,230,1539,155, 
129,201,3,208,39,159,0,132,1279, 230 

115 DATA140,165,140,201,44,144,4,159,40, 
123,140, 1235,2553,160,0,132,254,177 

il& DATA254.153,0,34,200,1972,22, 200,746, 
1545,141,240,2,22,38,16,76,49,23 

117 BATA2G1,.2,1758,16,2058,0,208,173,0, 208 
‚201 ,2535,208,3,205,16,208,75,123 

118 DATA16,201,32,176,11,738,0,208,208,3, 
228,168,.208,78,133,16,701,4,175,& 

117 DATAZ068,1,208,76,133,.18,201,5,176,7, 
238,1,208,228,1,208,76,133,15,201 

120 D5T95,1758,19,258,2498,7,.32,173,16,740 
,1,76,1597,0,162,1,137,1942,134,, 141 

121 DATAIS,208,248,7,32,172,16,708,16,16 

7,8,152,2,76,113,15,1798,142,165,142 

122 DATA240G,1,95,133,141,98,32,158, 183,1 
38,72,372,253,174,32,158,183,104,1688 

123 DATAZ4,32,240,253,32,237,174,76,164, 
175 

124 BREMER 
125 REH# MACHINE-TODE FARTZ * 
126 BREMER 
127 FRINT"CREATINGTSPACEI MACHINE-EODE SP 
ACEIF" 

128 S=0: FORI=4315T04848: RERDA: 5=S+A: FORE 
1,A:NEXT 

129 IF5X 5 7350THENFPRINT "DATA-ERROR2": END 
130 PRINMT"DATASISPACEFRTISPACEFO.E,. " 

131 DATASZ,213,7243,165,186,22,180,255,16 
5,185,32,150,255,32,165,255,160,0 

122 DATA1A9,252,220,257,209,2,230, 757,15 
53,144 ,240,239,76,66,246,169,192, 150 

12335 DATA4,1553,251,132,252,169,192,150,21 
6,123,253,132,254,157,192,160,191 

134 DATALZS,167,132,168,160,88,958,120,32 
‚252,16,177,167,145,251,24,105,5 

135 DATA145,253,200, 208,244 ,250,16838,230, 
254,220,292,1689,2952,201,7,144 ,232 

156 DATASB,75,169,0,141,22,192,120,372,725 
=2,18,177,251,1453,1687,201,583,208,3 


Compuphe mi 


sellr 
«1103 
xBr 

{1285 
1585 
s2löh 
18%: 
22183 





Aabr 


Saar 


Sah> 


programme 


137 DATA238,22,192,200,208,242,250,16B,2 

30,252,165,252,201,7,144,2537,BB,76 

138 DATAL73,1,208,5201,240,144,3,250,2,95 
,‚165,703,201,62,240,247,150,0,177 

137? DATA1iS7,ZUt 63,208,3,76,41,18,160,0, 
177,167,201,64,208,3,76,77,18, 160 

140 DATAAG, 177,167, 201,64,176.5,230,143, 

76,141,18,185,143,201,3,1434,3,230 

141 DATA2,96,167,0,133,143,160,40,177,1& 

7,201,65,208,3,76,153,18,150,40,177 

142 DATA1L57,201,66,708,3,756,188,18, 162,4 
‚177,167 ,201,67,209,4,169,32,145 

145 DATA1857,76,207,17,.173,0,220,41,4,.208 
»2,76,153,18,173,0,220,41,8, 208,13 

144 DATA7&,188,193,173,0,7720,41,15,208,22 

7,75,2,33B8,3173,0,220,41,1,208,11,160 

145 DATAC,177,167,201,70,208,3.76,77,18 
173,0,220,41,2,208,11,180,40,177 

145 DATA157,201,70 .208,3,76,147,18,76, 90 
„17,160,40,177, 187,201, 58,2093,7,157 

147 DATAZ2, 145, 167,76,88,17,36,165, 167,2 

33,80,133,167,201,1768,144,2,198,148 

149 DATA189,168,133,142,169,3,133,141,76, 

220,18,160, 6 „‚1697,32,145,157,32,227 

149 DATAIB, 120, & 185.,82,4 

169,48,153,82,4,169,38,153,172,4 

150 DATA135,136,2098,235,78,89,19,24,105, 
1,155,82,4,56,237,10,152,122,4,206 

151 DATAZ1,1972,209,1,96,76,126,17,56,185 
‚157, 233,40 ,133,187.201,7168,144,2 

152 DATAL78,158,1697,8,135,142,169, 2,133, 
1941,768,220,18,24,165,167,105,409,133 

153 DATA167,144,2,230,169,167,4,.152, 142, 
1569,4,133,141,96,372,121,19, 78,213 

154 DATA19,32,12 1,18, 76,220, 19,198,167,1 

655,167, 201, 255,208, 2,178,1658, 173 

1553 DATA248,7,201,47,240,7,169,5,162,6,7 

6&,181,18,159,1,152,8,1337,1431,134 

156 DATA142,76,213,18,230,157,208,2,230, 
168,173,248,7,201,41,240,5,169,5 

157 DATA7&,172,18,1659,2,162,98,76,1B1,18, 
165,141,208,252,75,08,17,185,141 

158 DATA208 ,252,76,189,17,152,90,180,5,i 

25,209, 253,202,1942,1,212, 206,247 ,976 

157 REIIHSBHHRSHRHHHHIII EIERN 
140 REM#* SFRITES * 
181 BREMER NEN HH RK FH 
1&2 FRINT"CREATING{ISFACEFSFPRITES" 

1583 FORI=25S50T03070: FOKEI,O:NEXT 

144 S=d: FORI=OTO34: READA: 5= S+A: FÜLKEFSSO+ 
T,AsSNEXT 

155 FORI=OTGSF: KEADA: S=E+A: FORJ=41 TOA7 ER 

OEEI#SAHT,ArNEXTI,I 

166 FORI= =421047: FORI= &TOLZSTEFSZ: READA:S= 

S+A: FOKEI*#S4+1,A:NEXTI,I 

1&7 IFS:%>73978THENFRINT"DATA-ERRORE" SEND 

168 FRINT"SFRITE-DÄTAS{SPATEIDO.K, " 

18% DATA2SS,240,0,255,240,0,192,48,0,192 
»45,0,192 „9a G,172,48,0,172,48,0,1972 

170 DATAAU. ‚192,28, ü, 192,48, [#] 255,240, {6} 
‚255,240, Fr 0,0,128,0,0,120,0,0,122 

171 DATAO ,0,120,0,0,6040,0,102,0,0,219,0 
-9,255,0,0,255,0,0,201,0,0,355,0,0 

172 DATAZSS,0,0,178,112,118,112,95,109,9 

6,66,70,668,68,54,6,14,110,14,20,94,30 

173 REMERSRH HR HH 

174 RE. INITIAÄLIZE * 

1753 KREMER NINE EEE EHEN 

176 FRINTF{ICLEAR GREENFPTA4,B: NEW" FRINT 
"IDORANZFIFOKE44 ‚48: FORE1T288 ,0: RUN” 

177 FRINT"FT44 , 48: FOKE17788, 0: LT"ÜCHRE (34 

IROBOZ"CHRE1Z4)",08" 


178 FRINT"IDIHNF4 BLACKIFOKESAG, &:FOKES4, 


201,57,144,17,. 


x194> 
“78: 
S2Or 


»B0> 


Ed 26 


<208> 
“28> 
«2105 
£309> 


8: SAVE"CHREF III "0: RDBO"CHRE (IA, 
N} 

1797 FOKES531,1%: FORI=OTO4: FOKESSE+HT ,1LI:NE 
XT:FOKRE193,4:STOF 


100 BREMER HR HH HN RR HH 


101 REM« REBOS HAUFTFROGRÄMK * 
102 REM#* (EI 1985 BY MR-SOFT * 
I03 REP* RONALDO MAYER * 
104 REM® A-4062 THENING Z4/AUSTRIA * 


105 REIHE 
105 5Y64040: FÜRE409788, 147: FOKE40689 , 14: F 

OFREA7175,0 

107 9=33240:5=5 

+17: FOKEBI ,Ö 
108 FOKEV+24,25: FOKEV+2Z, 1097 

109 BGOSUBF65: 505UB21F: 5GOSURDA1 

110 BEMESSEN REREEE 
111 REFH# MENU + 
112 REIRRHRHHHER KUHN KT IH FH HH HER HF 
112 FRINT"ILLEARF"SFOKERA,A1TFOKEHT,11:X 
=: YelıF=5: 28="SELECT@OFTIONS: ": EOSUR 47 
114 X=0:Y=4:F=7: Z+=" Äxı 

: 5DSUEF495 Y=21:605UB247 

115 X=4:Y=9: F=10: Z#="FIieerL_LAYEGAME":GOSU 
B24%7 

11& Y=13:F=i4:7#= 
B245 

117 Y=15:F=B: Z#+="FIe2=SEE@E5CORES": GDSUBZ4 
z 

118 Y=13:F=3: 24="F7@SSAVESRSCHRES" : GOSUBZ 
47 

11F T=FEEK 1203): IFTZZORT>6THEN1 19 

120 GOSUR154: IFT=STHENBOSURBZEB: GOTOL1I10 
ı21 IFT=&THENSOSURZSS5:G0OT011O 

122 IFiI=TSTHENGOSURB18B4: GOTO11O6 

123 BEMERERREHEREEEIEH 
174 REM* GAME * 
125 RESSORT E 
12656 LE=0:1L7=0: ME=5: GOSUE167 

127 LZ=_L7+1 

128 LE=LE+1:LL=LE: FÜORESAS 
OKES5324, 15 IFA FOTHENLE=0:50T0178 

127 FOKERL, 0: S505UR177:G0SURB154 

130 IFFEEK CZI=1THENLSZ 

131 Z£="LEVEL@E"+RIGHTF Ü"6"+MI DE (STRE(LZI 
„23 ,Z2IH"eCcomPLETED":X=1: Y=13:Fel 

132 GO5UB249:60T0127 

123 KREMER EHER H HN HH 
154 KEM#+ NEXT ROBO * 
135 REM 
136 FORI=1T07: FOKEV+29, 1: FÜREZU40, 40+1:6G 
OSUB151:NEXT 

137 FORI=1T07:PFOKEV+T9, T: FOKE2040,48-1:56 
OSUB181: NEXT: FÜREV+21 „Or FÜORKEV+39F ,15 

138 ME=ME-1:1IFME=SÖTHENI AO 

139 Z$=" TRYBAGAIN"zX=10: Y=13:F=3: GOSUH24 
9: E05UB241: 6070177 

140 REMRRRRR REN EREERE 
i41 REM GAME OVER * 
132 FREENET EEE 
143 FORI=2STOSSTEF-.4:LETO,I 
EN EPACEIEI":NEXT 

144 FÜKERBI „Os: Ze" @i<Sciicgilet: Felde 
z11: GOSUBTAS: Y=17:505UR247 

145 Z£="@GAME@WWERE":F=13: Y=14: GOSUB249: 
FOFKE1L12&,49: FOKE11&6 , SB: FORHEBT „23 

145 HHF="":FORI=1104TD1 11 A45STER2S: HHF=HAHF+ 
CHR#& {FEEK{IJ):NEXT 

147 HA&=HHFH+RIGHTEF ("O"+MIDBSFÄSTRE (LZI , 2), 


=) 


AZTZERA=V+32:HI=SRAtlıBI=V 








"FZOSLEVELTEDITOR": GOSU 


%=BıY 


GSompufe mik 


BIGREE 


34,0: SOSUBF49: F 


„"IDGRETY RVS 


“1605 


se248> 


Der DS 


235 
ba: 
1825 
x81> 
1765 
<85> 
1187 


<200> 


“1003 


2/86 


2/86 


148 GOSUBZ41s IFHH$<H& (5) THENI1SS 

147 GDSUB2Ö01 = HHF=HHFHHE 

150 FORI=STOLSTEF-1 

15i IFHHF>H& (I) THENNEXT 

132 FORI=STDI+1STEF-1:H8 (J+1 3 =HFtII NEXT 
=HE£(I+13=HH# 

153 GOSUR2S5S5:60T0110 

154. KERN 
155 REM* GAME SET * 
155 REISEN KEEREREEERER 
157 5Y54375: FOKE141,0: FOKE142,0: FOKEY,31 
:FOKEY+1, 224: FOKEZO40, 41 

158 FOKEV+21,1:FOKEV+H1&,0:FOKE18&7, 112: FO 
kKE168B,7; FÜREZ,0: FOKE143,0 ö 

157 FOKES97173,FEEK (49174): 5OSUBP41 

140 FOKES+24,15:5Y54430:RETURKN 

161. RER ER 
i&52 REM+* BEEF * 
1523 REMIS 
154 FOKES+1 ,50: FOKES+5,0: FOKES+& „240: FOK 
ES+4 , 32: POKES+24, 15: POKES+4,,25 

153 FORLI=1T050: NEXT: FOKES+1 „DO: RETURN 
156 FORI=0T024: FOKES+LT,0: NEXT: RETURN 

157 RER HH HN HH HE 
1458 REM* SCREEN + 
IEY REFRESH HEN HN HR IH HH HE 
170 FRINT"ILLEARF":FOREBI „Or FÜKERA, 11: FO 
 KEHI,O 

171 LETO,O,"{ARVYSON DGREY SPACEIFSCDREISF 
ACESFLEVELISPACEZFMENISPACESFHIGHSEDRE 3 
PACEZE" 

172 LETO,RLRÄ"{RVEON SPACE" __________LISPA 
tE2} ___ TSPACEES ISPACE2 

SPACE, 

173 FORI=2T0Z 

174 LETO,I,„"{IRAVSDONS MOYAR SPACEIT DEREF} 
I KEYAN SPACES BGREY} 
Ya HCEYAN SPACEII DBEREYF "NEXT 








7 








175 LETO,4,"{RVSON SPACEITTTTTITTEEPA 
EEEITTTITERACENTTTIBR ACH DI Tg 
SPACE>" 


175 FORI=110STO111ASTEFZ: FOREI „48: POKEI+ 
40,38=NEXT=: RETURN 

177 A=LE/10: FOKE1119 ,48+A: FOKE1159 „3B+A 
178 A=LE-INT(AI#LO:FOREL1ZI ,„48rA: FÜREL 16 
1,238+A 

177 FORI=1T05: A=VYAL<MIDE CHEND) „I, 13): POE 
E11l29+1*2,40+4: FOKE1169+ 17 ,284A: NEXT 
i8O FÜRE1126,48+ME: FOREI1 166 „S2B+ME 

181 SYS4375: k=10: Y=ldıF=? 
192 Z3="&@LEVEL@E"+RIGHTE LE" 
3,2) ,23+"@": BOSURT4$ 

183 Zs="@X aZae"aX=llhı Y=11: BOBSUBR249ı Y 
=17: G6DSUB249: FOKERI „ES: RETURN 

184 KREMER EN HH CR 
1535 REM* SAVE/LOAD HIGSHSCORES * 
154 REM 
187? BFENZ,8,72,"@0: TOPS,S,W" 

188 GOSUETOG: IFAH FOTHENLFO 

187 FORI=1T105: FRINT#2,HF{TI: NEXT 

19G CLOSEI: CLUSER: GOSUE1 7%: RETURN 

191 OFENZ,8,2,"TOF5,S5,R" 

192 GOSUE20G: IFAZ »FOTHENMGESUB1IFS:5GTO1F4 
193 FORI=1T085: INFUT#P HF TI ENEXKT 

174 CLOSEI: CLOSET: RETURN 

195 FORiI=S1T0O5:HF{D)="OOLOOHIRONNY"TSNEXT: 
RETURN 

155 FRINT"ICLEARI"IX=B: Yallef=12: Z#="DISE 
KZSTATUS" GOSUBE49 : Z#=" FORI=SITOLENIF$) 
197 A=ASCKMIDE FF, I, 123): IFA=3TTHENA=84 
178 Z£=ZE+CHREF A): NEXT:ıF=14: V=15: ki E 
NIZ#EI 


G"+MIDEISTRE(LL 






HETAN SPACEIZ DOGRE 


2ur 
x 76> 
1575 
235: 


222% 
A228> 
x95> 

«128» 


SITE 


«135> 
ON 
A265 
«102% 
<190> 
1045 
x240% 


“1875 
x170> 


<109> 
1495 
<110> 


zlö> 


<155> 
175 


il” 


855 
39% 


ADO5 


SE 
uns 


125: 

Sıöh 
1275 
2a) 


als: 


234: 
<3ah 
zriuN 
197% 
£A2% 


A745 


445 
E70 


si6l: 


programme 


197 GESUB2497: GOSUBI41: RETURN 
zo0 OFEWM1,9,15: INFUT#1,A,F#,C,D:RETURN 
ZOI KREMER EHRE EHER RR HN 
202 REM* CONGRATULATIONS * 
OR RN RENTEN UERTAUEURERERERE 
204 FRINT" CLEAR} :FOKERA, Or: X=0: 
205 Zie": RSÄÄSSLETG Zee Ye Fi GOSUB2A 
2: Y=6: GDSUEZ49: Y=21: GOSUB2A4YF 
2056 Y=3:As="CONGRATULATIONS” 
207 FORI=iTOLEN (AF) 2 X=2+ 187: P=l: 7$=MIDEt 
AF,IT,1):GO5SUB24%: 5D9SUEBL 54: NEXT 
208 X=1:Y7=10:F=8: Z#="THISeIS@ONE@OFETHE" 
E 5GOSUE24F 
2097 K=3:Y=13:F=8: Z#="BEST@FIVE@GSCORES?": 
GOSUR249 
z10 X=3:Y=1B:F=3: Z#+=" YOUREMAMES@y a; 5 3334 
25 ":60SUB249 
211 X=25:HEt="" 
z21E FOKE1Y73,0:WAITISB,1:GETI/#: IFZ#=" "THE 
NZ1Z 
zı3 IFZEF=CHRE (IND ANDXFEZSTHENHE=LEFTE (HF+ 
ISZ£gH 5) «RETURN 
214 IFZ$I -CHRE (20) THEN21& 
2153 IFXFZ5STHENA=X-2e Z#=", 2 ":GO5UB2497: HR 
LEFTE CHF LEN CHF} 1): GOTOE1Z 
216 IFZFL"AVORZFS"Z"THENDI1Z 
=17 IFX<33STHENGOSUB2497: K=X+2: HF=HF+ 7 E: 60 
TO2Z1z 
18 GOTO212 
219 REM 
220 REM# TITLE * 
221 BEMERKTE EEE 
Z22 FOKEHI „OU: FOKERA,FS PRINT" IGLEARF "3605 
Ur1Aa4 
223 FOEES+4,128: FOREG+1 „5: FÜKES+S , 9: FOEE 
Srä,248B 
>24 FOKES+2F,Z41: FOEKES+22,100 
i 
225 Y=zır=5: X=3: Z7#="MRSSOFTEFRESENTS: ":6 
SSUB249: FOKES+4, 129: FÜKERI „2 

=5 FÜORISOTOZSTLETO,IT,"IBAOHN RVYZON SPAC 
E RVSOFF LIG.BLUE}-"}:2LETS7,1, —"3:NEXT 
zzZ7 FÜRI=15T005STEPF-. 1: FOKES+24, 161: NEXT 








< 


: PÜKES+24,3 

















228 FORI=&TD7«LET2,I, 1SP 
ACEZY iSPALCEZY iS PACE2 IT 
Ze NEXT 


225 FORI=8STO9SLET2,1,"{LIGLREDITISPACE3 
I—ISPACE2I-—ISPACEIF— {3PÄCEEITISPACEI 
3 ISPACEIITTISPÄACEZI "NEXT 




















230 LET2,10, SPACLE2ITTS 
PACE33—- TSPACE2? SPACE2F—ISPACEI 
7 ——l 

231 LET2,11, "mt gpAcEr 

—ISRACE? ESPACE> —ASPACEEI “ 





232 FORI=1PTD1SSLET2,I,"{LIG. REDITTIEPAC 

E3}"—IBPACES —ISPACE3?T_ISRACEH IEPAC 

EIIT_ISPACEI —{SPACEII TU ENEXT 

233 FORI=14T015:LET2,1I, 
33 {SPACE} 

ER ———"NIEXT 

334 LET14,20,"£REDBII LIT] 


E11 





iSPÄCE 
ISpaces ————TaRAe 





PETER TI 


235 DE="SPATESIYBYISPACEHRONALDISPACEFMA 
YER" 

2356 LET4,19,"{NGREY RVEON SPACE RVSOFFII 
TRVYSON SPACE RVSGFFIWIRVEON SPACE RVEOFF 
IB{RVSON SPACE RVSOFF>SIRVSON SPACE BV38 
ER>" 

237 LET4,20,"IHÖREY RVSOR SPACE AYSOEFS' 
{AFEON SPACE RISOFEF+LRVSON SPACE RWSOFF 
F.iRFEON SPACE RVSOFFIHIRVSON SPACE RYSO 
ER" 


»38 FORI=1T018: LET14,17, 





"IHHITEF"RIGHTE ( 


«189 > 
161% 
<iamı 
248% 
Z1A4% 


ab: 


31205 
x140> 


L22Br 


EFF 


«1735 
“395 


625 


75 


“19> 


Fortsetzung Seite 12 
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report 





Viele EDV-Anwender kennen die 
Probleme: 

Zulange Lade- und Speicherzei- 
ten bei den Datasetten. 


| Als Folge dieser etwas bedienerunfreund- 


lichen Datasetten steigt eine Vielzahl von 
Anwendern auf Floppystationen um. Spä- 
testens nach dem Kauf dieser Floppysta- 
tionen, oder vielleicht auch schon vor dem 
Kauf, beginnt ein Problem: 





Nützliche Ts zum Kauf von Disketten 


Welches sind für meine Ansprüche und meinen 
Bedarf die richtigen Disketten? 

Der Markt bietet derzeit eine Vielzahl von 
Disketten an, die alle für unterschiedliche 
Aufgaben angewandt werden. Da gibt es 
zunächst die großen 8“ Disketten mit 48 
tpi (tracks per inch). Danach die wohl z.Zt. 
noch am weitest verbreiteten 5.25“ Dis- 
ketien mit 48 oder 96 ipi und die 3.5“ Mic- 
ro-Flexy-Disks mit 67.5 oder 135 ipi. Die 
Aufzeichnungsdichte, ob doppelt oder 





einfach erkennen Sie an den beiden Zei- 
chen 2D (Flexy Disk 5.25 1D oder 2D). 
Jetzt beginnt das zweite entscheidende 


Kriterium. Von der Zahl der Aufzeich- |: 


nungsseiten ist auch die Zahl der Gesamt- 
kapazität meiner Diskette abhängig. Die 
meisten Anwender werden sagen, der 
Speicherplatz ist auf jeden Fall zu wenig. 
Mit Hilfe einer Kapazitätsberechnung 
kann man die theoretische Speicherkapa- 
zität einer Diskette berechnen. 





Beispiel einer Kapazitätsberechnung für eine 5.25“ Diskelie: 


Anzahl 


16 x 


Auf einer 5.25“ Diskette mit 2 Aufzeich- 
nungsseiten lassen sich also maximal 


| 319.488 Bytes speichern. Auf diese Weise 


können Sie für jede Diskettengröße die 
Speicherkapazität errechnen. 

Natürlich spielt aber auch die Länge der 
Datensätze eine wichtige Rolle. Bei festen 
oder variablen Satzlängen ändert sich 
nämlich auch die Sektorgröße einer Dis- 
Kette. 

Diese ausführlichen Berechnungen 
sprengen an dieser Stelle jedoch den Rah- 





Rolli Disk ist der Name für einen neuent- 
wickelten Diskettenkasten - für 5 1/4“ 


- Disketten — der genau in ein Hängeregi- 


ii 


ster eines jeden Schreibtisch-Unter- 
schrankes paßt. Dieses neue Disketten- 
Aufbewahrungssysiem zeichnet sich be- 
sonders durch 3 praktische Vorzüge aus: 
* platzsparend 

- Keine platzraubende Diskettenbox auf 

dem Schreibtisch. 
* sicher 
- Mit dem Rolli Disk Diskettenkasten 


Bytes je 
Sektoren x Sektor 


Zahl der Aufzeichnungs- 
x Datenspuren x seiten 


x 39 x 2 


mer unseres Berichtes. Da sollte jeder An- 


wender eine individuelle Berechnung der 
Daten vornehmen. 

Wichtig für den Kauf ist aber neben den 
Kapazitäten auch die vorhandene oder die 
zu erwerbende Hardware. Nicht jede Disk 
paßt in jede Diskettenstation. 

Genauso paßt nicht jede Diskettenstation 
an jeden Rechner usw.. Man ist hier also 
schon auf die Vorgaben der Hersteller be- 
schränkt und sollte vor dem Kauf von Dis- 
keiten genau die Angaben der Hersteller 


werden Ihre Disketten diebstahlsicher 
im Schreibtisch-Unterschrank oder 





Gompute enib 





Speicherkapazität 
319.488 Bytes 





in Punkto Größe und Typenbezeichnung 
beachten: 

Als letzten entscheidenden Gesichtspunkt 
muß man auch noch die unterschiedli- 
chen Preise der einzelnen Herstellerfirmen 
für Disketten berücksichtigen. Oftmals ist 
das Angebot so vielfältig, daß nur durch 
direkten Preisvergleich Geld gespart wer- 
den kann. Beachten Sie also bei dem Kauf 
Ihrer nächsten Disketten die angespro- 
chenen Kriterien und Sie werden das für 
Sie günstigste Angebot finden. 





auch in jedem anderen Hängeregister 
verwahrt. 
* griffbereit 
- Die Disketten sind immer griffbereit 
neben dem Computer. 
Jede Box hat unterteilte Fächer und ist für 
bis zu 80 Disketten ausgelegt. Der Preis 
liegt bei 79,-— DM incl. MWSt, und nach 
Auskunft der Firma erfolgt die Lieferung 
frei Haus. Nähere Auskünfte erhalten Sie 
bei: 
Gomputer Links EDV-Zubehär, München 81 
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i Archivieren leicht gemacht: 

{ Mit dem Misco Roll Top, der platzsparen- 

| den Diskettenhox, lassen sich Disketten ; 

übersichtlich aufbewahren. Schutz vor 

Staub und Beschädigung gewährleistet 

der praktische Rolladen-Deckel im „Holz- 

Look“. Der rutschfeste Roll Top aus stabi- 

lem Kunststoff bietet - je nach Modell - 

Platz für 55 3 1/2”-, 120 5 1/4”- oder 100 

I 8”-Disketten. Zum Schutz der Daten vor 
- unbefugtem Zugriff liefert Misco die drei 
Versionen wahlweise auch abschließbar. 

- Ein Plus in Sachen Übersicht sind die far- 
bigen Registerstreifen. 
Den Misco Roll Top gibt es im 3 1/2”-For- 
"mat ab DM 79,-- (netto), für 5 1/4”-Dis- 
keiten ab DM 129,-- (netto) und im 8”- 
Format für DM 149,-- (netto). 

| Misco 

EDV-Zubehör GmbH 

Nordendstrafe 72-74 

6082 Mörfelden-Walldorf 


- MARCOM-Fachhän 


In Stade, einem hübschen Städtchen zwi- 
schen Cuxhaven und Buxtehude an der 
Elbe, sorgt jetzt ein auffälliger Geländewa- 
gen im ELEPHANT-Look für Aufsehen: 


staunt wurde. 






















stand in der CeBit-Halte als 1. Preis eines 
Fachhändler-Preisausschreibens 


Mitte September war es 


report 


Praktisches 
Computerwissen 


von James L. Morrison 


| Dieses Buch beschäftigt sich hauptsäch- 
lich mit dem Terminal und seinen Anwen- 
dungsmöglichkeiten im privaten und be- 
ruflichen Bereich. Die Ausführungen gel- 
ten für fast jedes Terminal und sollen dem 
Leser in seinem Bemühen unterstützen, 
sich mit der Benutzung von Terminals, 
und damit .der breiten Palette von der Text- 
verarbeitung bis hin zu allgemeinen Da- 
tenverarbeitungsprozessen, vertraut zu 
machen. Nach dem Durcharbeiten des 








dier in Stade 


be- 


soweit: Als Ge- 


Es ist der im satten Gelb lackierte und mit 
dem Elefantenkopf des Markenzeichens 
ELEPHANT MEMORY SYSTEMS ge- 
schmückte Jeep, der während der Hanno- 
ver-Messe ’85 auf dem MARCOM-Messe- 





2/86 


winner wurde die Firma Streeck-Electro- 
nic-Shop ausgelost. Am 17.9.85 überga- 
ben der Vertriebsleiter Klaus Heimers und 
der Productmanager Albrecht Niehof den 
gewonnenen Jeep den glücklichen neuen 
Besitzern, Herrn 
Sireeck und Herrn 
Noack, in ihrem Ge- 
schäftslokal. 
Da im März der neue 
; Termin der Cebit- 
i Ausstellung ist, sind 
alle Besucher dieser 
:: Messe aufgefordert, 
Ihr Glück bei den 
diesjährigen Preis- 
ausschreiben zu ver- 
suchen. 


Compube mi 


Textes sollten Sie sowohl Grundkenntnis- 


se über den Gebrauch von Terminals als 
auch über die Bedienung von Tastaturen 
besitzen. Sie brauchen nur wenig oder 
keine Erfahrung im Umgang mit Gompu- 
tern zu haben, aber Sie sollten neugierig 
darauf sein, was man mit einem Terminal 
alles machen kann. 

Das Buch will hauptsächlich die grundle- 
genden Fertigkeiten und Routinen beim 
Bedienen einer Tastatur vermitteln, damit 
der Benutzer diese versteht und in die La- 
ge versetzt wird, leicht und problemlos 
damit umzugehen. 





1 





programme 


C#,D):FORJ=1TO100:NEXTJ,I 
257 LET4,4B,"ICYAN RVSONICOPYRIGHT": GOSU 
E166: GOSUB1#1 

240 LET11,22,"IRESON EROHN SPACEIPRESSTE 
PACEFANYISPACEFEEY IEPACEY ! TSPALZE "ıRETUR 
N 

241 REM NR 
242 REM* WAIT FIRE/KEY * 
2433 BREMER IE IR 
244 IFPEEK (203) <:&44THENZ3B 

245 IFFEEK (56320) 2 >127THEN247 

246 G0T0244 

247 WAITS6320, 18,0: B0OSUB164: RETURN 

248 WAIT2OF,64,0: GDSUB144:3 RETURN 

243 BREMER ER FE 
250 REM#= RIG EHAR DUT * 
251 BREMER ER 
252 IFXSOTHENX=Ö 

253 LETX,„Y,""3: FOkES45,,F: FORL=1TOLEN (7#) 
:Z=ASCCMIDEIZE,L, 19} 

254 PRINTBE ZI" {UR2}" 4 =NEXT=RETURN 

255 REMERRHEN RR HF HERRN EEE 
256 REM* TOF 5 * 
237 BREMER HH RN HH ER 
=38 FRINT"IELEARF": FOKERA,0: POREHI ,O 
259 X=0: Y=0: F=l4: Z#="P3s NAMEz 4335 35; LES 43 
s SCORE" = BOSUBEASU_ 





 EOSUBZAIE Y- ns EDBUB2AG 
261 FORI=1T05: X=0: Y=3+l[I#s;: 
262 ZE=SCHRE I IH40) Hr ns - 
z2a3 ZF=ZFH+RIBHTFIHFeLY „SI +" 233 3 7 "+MIDECH 
ZID) 8,234"; 33 1 2 "+LEFTECHFEIS „5 

744 GOSUB247: NEXT: GDSURBZ41: RETURN 

2655 BEMBRRRHRRRRRe 
26h REM= EIG LETTERS * 
ZET KREMER TH HEHE HH 
2&B DIMAFLZSI:FORIS1TOTFS: READAFLIS NEXT 
269 DIMB& (905 :FORIT=48T070 

270 READA:BF{TDISAFLAIH"IDONN LEFTZI" 

271 READAGBFUII=SBE{IDI +ARFIÄAFH+TIDOHN FEFTZ2 


zn 


272 FEADA:HBFCDISCBECIIHAF CA) ANEXTE 
272 DATA „eat VAISPACET" I" 
273 DATA" KSPACEY LEE BEER Zee EERACEN u. 
"TSPALEIR" 

275 DATA" 


wu 
iM 


27& DATA"_E", 
277 DATA", 
a" 

278 DATA1,4,5,25410,9,7,8,5,7,7,534,749 
277 DATAB,7,5,8,1,5,1,10,9,1,1,5,1,7,5 
280 DATA23,3,3,22,23, 24,23,5,23,0,0,0,0, 


F=1*2 





stur 


Pau | ISPACEI", ve SRABEN", .. “ 


gan "11", "ig 
VESRACEI h 


BPACEI" U Q" 
„TLSRACEZI" urn," 


DATAL,2,3,23, 22,28, 1,1,2411,1,5,8,12 
282 DATA11,4,5,8,8,5,8,8,132,8,.4,5,4,1,2 
283 DATA&,6,3,10,14,5,4,15,2,12,12,59,1&, 


284 DATA20,4,2,1,4,5,1,8,12,1,16,5, 1,11, 
295 DATAB,7,5,17,6,2,4,4,5,4,18,19,4,16, 


236 DATA4,21,.2,4,17,3,7,22,5 

287 RETURN 

2ZBSB REMFRHNH TH THHHNNNE HH HF NH NH NE 
289 REM* LEVEL EDITOR * 
290 BREMER KEN HH 
291 FRINT"ZCLEARY"SPOKERA,9: POKEHT ,„$:X=? 
: Y=2=F=&: Z$="LEVELGEDITOR" : GOSUB24F 

292 LL=PEEK (49175) : L#=RIGHT$("O"4MIDE ST 
R$(LL) 2) ,2) 


169> 


x237> 
»1872> 
x105> 
x104> 
<aI> 

“1395 
735 

<180> 
AgIT> 

<iF70>r 
x109> 
<192> 
<193> 


<148} 
227 > 
<196> 
<16> 
“199% 
“78> 


l&öl> 


<105% 
21735 
<F8> 


rad: 
slzi> 
{2075 
184% 
200% 
166} 
{ 280% 
ARE 

<i74> 
<150: 


la: 


x1825 


145 


1465 





293 Xrtı Y=9:F=B: ZELL Aida geläilgegn 
: GOSUB249: Y=20:GO8SL1B24% 
94 Xr2: Y=8:F=5: IF="F1IE@GEDITELEVEL@r + $: 
BSISUB247 

295 Y=l1l:F=14: Z$="FJ@@PLAYELEVELE"+LF: 60 
SUB249 

295 Y=14:Fell: 28="FS@ESAVERLEVELE"+L FGO 
SUB243 

297 Y=17:F=7: 13="F7@G@GRETURN@TO@GAME": 608 
UB249 

298 T=PEER (205): IFT{30RT>&THEN?SO 

299 GOSUB164: IFT=3STHENRETURN 

300 IFT=4THENGOSUBSSFS4: GOTO?88 

301 IFLL=OTHEN?FB 

302 IFT=&THENGOSUBS42: GOTN288 

303 IFT=-5THENISF 

304 REM BERHHRHSIBHOHER 
505 REM# CREATE * 
306 BREMER EIERN HR E 
>07 FOKEEBI „O:FOKEHI „O=FRINT"ICLEARY":X=7 
“Y=i:F=14: 7$="L EVEL CREATOR": : 56DO5UB249 
208 PFOKEV+21,1: FOKEV+18 0: X=0: X1=297: Y=5: 
Y1=92: 8784375 

309 FORI=OTNSTELETI,A,"IYELIORF NS NEXT 
310 FORI=ZTOESSTEF4: LETI,S," "SNEXT 

311 EHt(or="ISPACEI CHEN) ="TPURPLEIT" ICH 
VII" UGREENI— "SCH rm" TELHET RICH LAST LY 
ELSORF I "ECHiSI =" IDRANGET- 

>12 CE) = IBROHNFTNSCHKTI="LLIG,. REDY—"2 
EFiE =" IDEREYI "CHIP SOE CO): ‚Cat: Che" ich 
AN RYSONIFWRFSOEFT"SLETO,& „u: 

213 FORI=0TDS2STEF4: FORI=OTO1=LETI+T,5,C 
FII/SAISNEXTJ,I 

314 PORE2040 ,40: POKEBIT „23 

>15 IFX1>Z5S5THENX1=X1-255: FOKEV+16,1 

3is IFXI<OTHENX1=X1+255: POKEV+lS „© 

317 J=PEEK (563209 FOKEV Xi: FOKENV+L, YA 
18 IFI<I1ZANDYSSTHEND= (X+1) 7/4: FOKET7OL1,& 
= 5YSSP903: LETINT(UI#A, 8,0 

s1? IFPEEK (205) =A7THENS7F 

320 IFPEEK (203) =20THENBOSUBZ?7:GOTO=S14 
321 IFI<L1ZANDY-STHENLETX .Y,Es{i0); 

322 IF(iJANDII=OANDY>S THENV=Y— 1:Yi1=Yi-R:6 
UTD315 

323 IFt(JAND7I= =OANDYZZSTHENYEY+LE Yıl=Yi+B: 
GOTO31S 

324 IF(JANDA) 
OTOZ15 

zz IF£JANDEI -OANDX<SZTTHENX=X +1: X1=Xi+B: 
GDTI315 
325 GSOCTN315 
327 GOSUBESF1z IFAF="N"THENPOKETEL „4: 81557 
F03rRETURN 

5286 FORI=&TD24: POKE7B1 , 1: 5Y559903: NEXTıR 
ETURN 

327 GOSUESI1: IFA$="V"THENRETURN 

330 PORE781 ,8: 57559903: 56070311 
331 FOKE7BI „4: 5Y359 03: LETF sös"tHHITE AV 
SON SRÄACE? ARETSPACEI VOULS SPACEISURELSPACE 
SPIBPACEIIY/NI SPACE}, 

>32 FOKE198,0:WAIT178,1:BETA&: [Fass z"yoa 
NDAF< "N" THENSZZ 

333 PRINTAF: RETURN 

334 REM REIHE 
333 REM&* EDIT * 
336 REPBHRSRSSHHRSRRSIHHHIRIHI IH ICH RE 
537 LET13,22,"{WHITE RISONILEVELTSPACEHN 
O.":;:FOKE19R,0: POKE19, 1: INFUTA$: GOSUR1&4 
33B EL=VAL (AF} 2 IFLLXIORLL>FFTHENFOKETEL, 
22: 5SYSS9903: S0T0O3S57- 
3397 IFPEEK (49175) >LLTHENGOSUBS47 

540 IFPEEK (4917572 >LLTHENPOKE49175,LL:FO 
KEBI,„O:FRINT"F{CLEARY" :5Y54405 


=OANDXFOTHENX=X-1: X1=X1-8:6 











Compute mik 





x35> 


x248> 
x81> 
36: 
x15> 


<aasr 


z10> 

A237 
s246> 
x245> 
sZ48> 


2495 


<187> 
x98> 
78: 


Ei=t- 60 
3377 
s217> 


x351> 


x16l> 
x131> 
2: 
<i1B7> 
a2 


xB3> 
1527 


“193 
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341 GGSUBS04: POKEV+21 „0: SY54405: RETURN 
342 REM NN 
345 REM# SAVE LEVEL * 
344 REMSRREEEEEER HR E 
345 DOPEN2,8,2,"&0: LEVEL "+RISHT& Ü"O"+MID$ 
ISTRE ALDI, 23,209 +",F WW": GOSUBZOO 

245 IFA<>OTHENS4EB 

347 FORI=OTOSB1: PRINT#2, CHRE$ {FEEE (491744 
T3}3:NEXT:PRINT#2,CHRE (0) ; CHRE& (0) 

248 CLOSE1: CLOSE2: GOSUBI J&: RETURN 

343 REMRRERRHOHARIHHE EEE 
350 REM# LOAD LEVEL * 
331 REMErRHHSH EHER 
332 POKEZS2,22: FOKE2S3, 1925 SU5UB3SS: GOSU 
R200: 5DTD3I4 

353 CLOSE2: BPEND,B,?R,"LEVEL"+RIGHTE O"0r+ 
MIDE(STREALI, DI ,D +" ,F,R"SRETURN 

394 IFAS FOTHENZSS . 

353 GOSUBISS: SYS4315 

356 ELOSE1: ELDSET: RETURN 

3SE7 BREMER EHEN EHER ER 
3558 REM#+ DEMO FLAY * 
359 REIBARRSSHHHRHHSRHHHHHHSSIHHRIH RI 
2640 FOÜKEBI „OÖ: FOKEHI „Or PRINT" ICLEARF"IFOK 
EHI „OÖ: FOEKERA,11: Y=2:X=10: F=2 


261 Z#=" DEMN@MODE" : GOSUB249: FOKEBI „23:60 ' 


SLUB158 . 
352 IFPEEK (2) = THENFORI=1TO2SSSTER, 5: POk 
EV+39 ,I:NEXT 


363 FOKE7E1,8:5Y55990S: LETB,5,"{HHITE RV 


SON SPACEYANDTHERISPACENTRYIEPACEITISEPAC 
Er£V/ND TEPRAGE} "3 :- GOSUBSS2 

364 IFAt="Y" THEN3ST 

265 FOEEV+21 ,0: 5010288 


100 REMRHHRHHRRREHHRN THU HHEHTR HI ER 








101 REM#* ROBO-LEVEL MAKER * 
102 REM# «2198985 BY MR-SOFT * 
10% REM# RONALD MAYER * 
104 REM® A-4052 THENING F4/AUSTRIA +#+ 


105 REM 
155 FOKES3Z81 ,0: POKESZ286,,0:2 FRINT"{ELEAR 
DOSNF RIGHTS PURPLEFTHIS{SPACEIFROGRAMT 
SPACEIITSTEPACEHECREATING! 

167 FRINT"IDOHN RIGHT?FSSSPACEHROBD-LEVE 

LS{SPACEFONISPATEIDISE,. * 

108 FRINT"YIDOHNI RIGHTS BRANGEFIFLEASEIER 
ALEFWAITTSFACEFÄABDUTISPALCEFTWD{SZRACEHMIN 
UTES{DOWNZF" 

107 FORI=1T05:FRINTTAB {103 " ICYANIURITING 
XSPACESLEVEL"I: 

110 GFENZ,8,2,"@0: LEVEL "+RIGSHTF{"O"+MIDE 
{STR$CDI „23,247, FW" 

111 X=0: RERDA=FRINTHR,CHRE IAYSCHRE CT) 
112 READAF: ASASCILEFTE (A$,13) 2 IFAZSSTHEN 
A=32+G6BT0114 

113 AF=MIDE(AF,7} 

ı14 R=VAL (AS): FORI=1TOR:FRINT#2,CHRE (Ay 
EX=K+H1:NEXTS IFXXSBOTHENI 12 

115 FRINT#2 ,CHREF (0) 1 CHRE$ (©) : CLOSEF: FRINT 
":OK":NEXT 

11& FRINTT{IDOHND RIGEHTE EREENITHANKLSPAC 
EINDUTISPACEIT MISPACEFRERADY. „ „. "LEND 

117 RER RR HN HH 
115 REM* LEVEL Oi j * 
119 KREMER RUHR NEE RER 
120 DATAS4,41,71,1471,1, 71,1, 71,061,1, 71, 
4,71,1,?1,13,71,61,1221,1,71,1, 71,1, 71 
1=1 DATACL,1,71,1,71,1,71,1,71,01,5,@7,2 
‚@7,2,87,2,6@7,56,81,05,81,1,01,€81,05,€@1 




















Z1> 
285 
180: 
30: 


x1IPl:r 
<28> 


196> 
1375 
33H 
s11li> 
A37E 


<i14> 


«119: 
£26> 
103: 
<20E3 
<43> 
x1äb5 


s45> 
«172> 
<189% 


“lal: 


Z146> 
“206> 
<97> 


A211> 
27; 
<ä> 
2128: 
x158> 
218> 


programme 


1772 DATA1,C1,81,D5,@1,1,01,@1,05,@1,1,01 
‚4,81,0D1,@3,D1,@1,2,@1,D1,83,D1,@1,2,@1 
123 DATAD1,@2,D1,@1,2,@1,D1,@2,D1,@1,6,%@ 
1,D1,@1,1,@1,D1,@1,01,1,@1,Di,@1,1,@1 
174 DATRDI ,@1,C1,1,@1,Di,@1,1,@:,b1,@1,C 
%,1,€@1,Di,@1,1,@1,D1,@1,01,5,@1,D1,81 ,1 
125 DATA@e1,D1,81,7,€61,D1,@1,1,@1,01,81,2 
„@1,.D3,@1,1,@1,01,81,2,&1,Di „ei,i1,e1,D1 
12& DaTacı ‚&, ei, D1l,@1,1,@1, Di, ei „i „ei, ei 
„Di,ei,i „ei, Di, ei, 1. c1 ‚1, Di „ei, i „ai, Di 
i27 DATAGL, 1, ci ‚ei, Di, &, 1, ei ‚Di, 8, i, ci 
‚„4,@1,D1,83,@1,@7,1,@1,D1,@1,1,@1,Di,e2 
128 DATA1,@1,D1,.@2,Di,@82,1,@1,D1,@ ,1,81 
„Di ,82,5,81,76,81,1,681,71,@1,1,081, 72,8 
127 DATAL,@1,76,@1,1,61,71,@1,1,€1,77,81 
‚S,81,D1,@2,02,61,1,@1,Di,@1,1,@1,D2,61 
130 DATAI,81,D1,@3,D2,81,1,@1 ,Di,@1,1,@1 
„‚D2,81,5,@1,D1,€1,1,@81,D2,@1,1,@1,D1,@1 
131 DATAI,Ei,D2,@1,1,@81,D1,@1,1,@1,D2,&1 
„1,@1,n1,@1,1,@1,D2,@1,5,@1,D1,61,1,@1 
132 DATADZ,81,F1,@1,D1,@3,D2,@1,F1,@1,Di 
„eE3,D2,@1,F1,@1,D1,@35,02,81,5,@1,Di,@1 
133 DATA1,@1,D2,@1,F1,81,D6,@1,F1,@1,Ds, 
@1,F1,81,D06,@1,5,@2,1,@4,F1,@8,F1,8@8,F1 
1534 DATA@S,13,F1,8,F1,8,F1,12,E38,2 

135 REM HEHE 
134 REM* LEVEL 02 * 
137 ETAERERERTERUI EHER e aan nun 
138 DATA2O,13 ‚£E7,D3,2,C1,23,E65,73,E6, 
24,805,C7,DS,1, a 21,E6,3 „E&,2%,D5, 7,D5 
139 DATA2,C1,21,72,7,E5,17,@1,B16,.D6,BZ, 


F3,11,@1,15,E6,4,F3,11,@1,13,C3,D4,5,F3 


140 DATA11,@1,11,E3,?1,E3,7,F3,11,@1,10, 
D3,03,D1,8,F3,11,@1,9,E5,?1,E1,9,F3,11 
141 DATA@1,7,D6,03,D7,2,F3,11,@1,5,EBy?1 
„E8,2,F3,11,81,6,D5,C07,D5,2,F3,11,@1,7 
142 DATA?4,7, 74, 3 ‚Fl, 73,3,D6, C4,D7,C05, 


D7,C4,D5,2 
143 REP EEE 
144 REM# LEVEL 03 * 


145 BREMER NEE 
14& DATAZ6,8,AI0,@1,8,@1,30,@1,7,1,@1,7 
1,29,@1,7,83.12, &,a ‚AS5,1,74,2 z„81,8,®@1 
147 DATA ,?S, 1,73, 1, 92, 21,1, 32 ,5,D6, 1, 
@1,8,@1,1,83,1,@2,1,@2,>1,1 ‚ei,1.es „4 
148 DATACI ‚DI »?4,Di,1,@1, 8, ei, 1, ‚3, ei, 
1,@1,1,81, 1, ei ‚1,@1,1,€@1,7,D6,1,@1,8,@1 
147 Data ‚ei,z, Ci,e1,>1,01. ci,@1,r1,e1 „E 
1,@1,01,@1,72,01,2, Ci,1,D1 „5 ‚ei, 8,81 1 
150 DaTaeı ‚=,0,1, @1,71,@1,1,&,1 „e3,3,D 
1,6,@1,3,E27.BB „D2,30, ci, 1,D&,C1,6, 73,6 
151 DATA>2 ‚6,73.6,87, 01,4 „EZ,CS, Es .ca, ES 
»C2,E5,C1,1,D1,4,D1, C1,32,B7 „E1,21,C01,1 
152 DATAD&,C1,17, E14,1.B7,c1 »4,B12,C1,14 


Cil,Z 

4 

153 REIBHRRRRRSHHHSHRER 
154 REM* LEVEL 04 + 


155 REM 
156 DATAZO,1,„DI,EI ‚D1,E3,5,E3,D1,E1 ‚D1,3 
„Pi,Ei,Dl, EB, D1,8, D1, Eı ‚Di ‚EA,3,64, Di1,Ei 
137 DATAD1 ,3.D1. Ei ‚Di, ES, 5t,E1,7,Dl, Ei, D 
1,E5,1,ES,Di,.Ei „Di „B1,2,D1, 21, Di, E8,D1 
158 DATREI, Di „E44, D1,E1,Dl, Eli, »1, Ei,Di 
„‚1,E1,1,D1,E1,D1,E1 „ü,El ‚Di, Ei ‚Di ö, Di 
157 DATAEA, D1,735,ES3 73,D1, Ei „Di,2,E1, Di, 
E1,Di,Ei,s,E1, ‚Di. E1,01,1,71,.4,D1, Ei, Di 
140 DATAE1L, DI, Ei, v1, 1 "al, 1, Di, Ei „Di, EB, 
B1,E1,D1,1,?1, a, D1, Ei, Di EIER, „En 
161 DATABI. Ei,Di „Ai, 2,Di,E1,Di,Ei, >& „Ei, 
Di,E1,7,D1,E1,Di ‚Ei,4.E1 ‚a „Ei, Di „Ei, D1 
162 DATABL.2,Di, Ei, Di. Ed, Di 3, 7i,4 „Di „Ei 
‚Di,E1,4,E1,4,E1, Di „Ei ‚Di, i, Bi „i „Di, Ei 
1&3 DATaDı „E24 „E2,D1, E12, 1,5, Di „Ei 
„Di,ER,?7, E2,Di, E1,01,2,61,D1,E1,D1,E1,& 
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154 DATAE1,Di,E1,81,2,F1,2,F1,Di,E1,Di,E „71,3,71,1,62,10,02,3,F2,8,61,71,@1,4,01 <115> 
3,5,63,D1,E1,D1,2,A1,Di1,E1,D1,E1,6,E1 <224r 175 DATA1,?1,1, 02,3, 61,7, 61,143 ?1,5, F2, 74 

165 DATADI ,E1,D1,1,71,F1,2,F1,Di ,Ei,Di,E ,4,81,71,@1,6,02,12,61,2,01,@1,2,F6, 71 . ABER 
3,5,E3,D1,&1,D1,1,A1,1,Di,E1,D1,E2,4,E2 <1065 176 DATAZ,82,5,01,7,01,4,02,1,?1,C1,1,@1 

ib DATAD1,E1,D1,1,71,F1,2;F1,Di1,E1,Di,E 2,F7,2,@83,13,71,1,71,1,71,3,01,2,@1,7 x19> 
4,3,&4,D1,E1,D1,A1,2,D1,E1,Di ,E2,4,E2 x153> 177 DATAF2,3,@1,1,@1,13,05,14,71,01,3,82, 

167 DATADI ,E1,D1,2,F1,2,F1,Di1,E1,D1,E5,8 1,F1,74,62,3,@1,1,@1,17, 11,61, 5781,51 “14: 
„E5,D1,E1,D1,3,D1,E1,Di,ES,2,ES,Di,F1 4305 178 DATAF7,3,@1,1,@1,17,02,6,@1,1,F6,4,@ 

186 DATADI „2, Fiy2,F1,36,F1,2,F1,2,Flyll, 1,71,@1,25,@1,73,1,72,5,@1,71,@1 ,4,E1,1 x1545 
F1,1,01,22,01,2,F1,B,F1,4,F1,2,F1,B13,4 “204> 179 DATAES,1,E1,1,E3, 3, E1, is, Ei, 1, E34 81, 

169 DATAC2,5,A1l2,Fi,2 <24> E3,1,82,71,4,@3,4,E1,2,E1,2;E1,1, 61,5 <b4> 
170. REMIARSSSSHH Be {255 1805 DAFAEL,TI,EL,1;5Elsis El, 1, El, 1, El, 14E 

171 REM* LEVEL 05 *“ <231> 1,1,E1,4,@1,1,@1,4,E1,2,E1,4,E3,3,E3,1 x113%> 
172. REmesssesss 275 1B1 DAYAEZ,L,JES„A,Ei,1,E1,4,@1, 71, @174,E 

17% DATAST7 ,@3,84, 2140282, 71,1, 71 75H, @1yl, 1,2, E1,6,81,3,E1,1,E1, 4, E11, E1s1, ER, 2 <38% 
@1,4,?1,7,71,1,02,11,F7,3,@1,1,81,4,01 SEslr 182 DATAE3,1,E1,4,@82,4,E1,2,E1,4,E3,5,E1 


174 DATAS,?1,1,02,10,01,2,F7,3,@1 11, @1,4 


Der Anwendungsbereich des Toolkits umfaßt folgende vier Bereiche: 


1. Die //0 Befehle für Diskette und Kassette 
2, Die Befehle zum Debugging (Fehlerentfernung) 


zu den Toolkitbefehlen: )|oAn“ una „Dverirv“ die Star- und 


Anleitung 


--- DLOAB „Programmname“, Startadresse 
Der „DLOAD“ Befehl ersetzt auf komforta- 
bie Weise das übliche „LOAD Programm- 
name“, 8(,1)“ des Standardbasics. 
„DLOAD“ nur mit Angabe eines Namens 
entspricht dem normalen „LOAD“ mit An- 
gabe des Programmnamens und der Ge- 
räteadresse. Wird bei „DLOAD“ außer 
dem Namen noch ein Komma angegeben, 
wird das Programm als Maschinenpro- 
gramm wie bei „LOAD“ mit Angabe der 
Geräteadresse und einer Sekundäradres- 
se geladen. Solite hinter dem Komma 
noch eine Adresse angegeben worden 
sein, wird das Programm ab dieser Adres- 
se in den Speicher geladen. Im normalen 
v2.0 Basic existiert hierzu keine Parallele. 


--- DVERIFY „Programmname“ 

„DVERIFY“ vergleicht ein Programm im 
Speicher mit einem Programm auf einer 
Diskette. 


-—- DMERGE „Programmname“ 

Mit „DMERGE“ istes endlich möglich, ein 
Programm von Diskette an ein Programm 
im Speicher anzuhängen. 

Bei „DMERGE“ wird genauso wie bei 





Endadresse während bzw. nach dem La- 
den ausgegeben. 


--- DSAVE „Programmname“, Startadresse, 
Endadresse 

Der „DSAVE“ Befehl dient, falls nur der 
Programmname angegeben wurde, zum 
Abspeichern eines Basicprogramms. Soll- 
ten allerdings noch weitere Parameter mit 
angegeben worden sein, wird das Pro- 
gramm von der Startadresse bis zur End- 
adresse minus eins als Maschinenpro- 
gramm abgespeichert. 


-—- CATALOG (”$: Parameter für Selektierung“) 
Das Anzeigen eines Directories ist mit dem 
„CATALOG“-Befehl möglich. Das Ausli- 
sten kann mit Shift oder Shift-Lock ange- 
halten, mit Cirl verlangsamt oder mit Stop 
abgebrochen werden. 

Nach Angabe eines zusätzlichen Strings 
ist eine gezielte Ausgabe der Catalogein- 
träge möglich. Auskunft hierüber gibt das 
Manual zur 1541. 


-—- DISK 
Der „DISK“-Befehl kann auf drei verschie- 
dene Arten verwendet werden. Werden 
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,Ei,i,El,1,Et, 1, E1z1,E1,13E235 






| 3, Befehle, die die Eingabe von Basicprogrammen vereinfachen 
4, Befehle, die für die Strukturierung von Basicprogrammen sorgen 


keine weiteren Parameter angegeben, 
wird der Statusreport des Fivppy’s ausge- 
geben. 


-— DISK „Anweisung“ 
„DISK“ mit Angabe eines Befehisstrings 
sendet einen Befehl ans Floppy. 


„= DISK Geräteadresse 

Mit dieser Variation des „DISK“ Befehls ist 
eine Umschaltung der Geräteadresse (8- 
11), auf die sich alle Diskettenoperationen 
beziehen, möglich. 


-- MERGE „Programmname“, Geräleadresse 
Dieser Befehl hat dieselbe Funktion wie 
„DMERGE“, nur, daß er das Format des 
normalen „LOAD“ Befehl aufweist und so- 
mit auch für den Recorder zuständig ist. 


--- KEY Nr. „String“ 

Der „KEY“-Befehl übernimmt die gesamte 
Programmierung der 16 (1) Funktionsta- 
sten, von denen jede mit einem 40 Zei- 
chen langen String belegt werden kann. 
Die, Belegung nach dem Programmstart 
oder einem Reset entnehmen Sie bitte Ta- 
belle 2. 

Die erste Anwendung des „KEY“-Befehls 








| dient zum Belegen der Funktionstaste 
„Nr“ mit dem Text „String“. 


--- KEY 
} „KEY“ ohne Parameter listet alle 16 Funk- 
4 tionstastenbelegungen aus. 


--- KEY ON/OFF 

Durch „KEY ON/OFF" werden die Funk- 
tionstasten wahlweise an- oder ausge- 
schaltet. 


—-- DEL Start - Ende 

„BEL“ löscht alle Basiczeilen im Bereich 
von „start" bis „Ende“. Die Parameter- 
übergabe entspricht dem „LIST“ Befehl. 


--- FiIND Modus, Suchiext 

Mit „FIND“ können Sie sich alle Zeilen- 
nummern ausgeben lassen (Modus = O) 
oder als Zeilen listen lassen (Modus = 1), 
in denen der Suchtext vorkommt. 


--- AUTO Schrittweite 

„AUTO“ mit Angabe einer Zahl schaltet 
die automatische Zeilennummervorgabe 
mit der angegebenen Schrittweite ein. 


-—- AUTO OFF 
„AUTO OFF“ schaltet die Zeilennummer- 
vorgabe wieder ab. 


--- OLD 
Der „OLD“ Befehl rekonstruiert ein mit 
„NEW“ oder Reset gelöschtes Basicpro- 
gramm, wobei alle Basiczeiger korrigiert 
werden. 


-—- [iS 
Mit „CLS” wird der Textbildschirm ge- 
löscht, 


--- VRES 
Durch „VRES“ wird der Videocontrolier 
neu initialisiert. 


--- SRES 
Durch „SRES“ wird der SID auf Null ge- 
setzt. 


--- TRÄCE x,y, Color, Modus 
Der „FRAGE“ Befehl dient zur komforta- 
bien Fehlersuche und Programmverfol- 
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gung. Es werden jeweils die letzten sechs 
Zeilennummern während des Programm- 
ablaufs an der Stelle (x,y) mit der Farbe 
(Color) ausgegeben. 

Uber den Modus (0/1) kann bestimmt 
werden, ob eine Zeile über dem Tracefen- 
ster gelöscht werden soll oder nicht. Dies 
ist beim Aufwärtsserollen sinnvoll. 


-—- TRAGE 
Nur „TRAGE“ zeigt das letzte Tracefenster 
an. 


—- TRACE OFF 
Hiermit wird der Tracemodus abgeschal- 
tet, 


—- WALK ON/OFF 

„WALK ON/OFF“ aktiviert bzw. deaktiviert 
den Einzelschrittmodus. Unter einem Ein- 
zeischrittmodus versteht man schrittwei- 
se Abarbeitung von (Basic}befehlen. Nach 
einem Befehl wird auf die GTRL-Taste ge- 
wartet. 

Ein Abarbeiten mit normaler Geschwin- 
digkeitist durch folgende Tastenkombina- 
tion im Einzelschrittmodus zu erreichen: 
Shiftlock/GTRL/CTRL. 


Nach Loslassen der Shift(lock)-Taste wird . 


das Programm wieder im Einzelschrittmo- 
dus abgearbeitet. j 


--- HELP 

Nach dem Eingeben von „HELP“ oder 
dem Drücken von F7 wird der fehlerhafte 
Teil einer Zeile angezeigt (nur nach Pro- 
grammabbruch dureh einen Fehler}. 


—- ON ERROR GOTO Zeilennummer 

Das Abfangen von Fehlern in einem Basic- 
programm wird durch diesen Befehl er- 
möglicht. Sollte während des Programm- 
ablaufs ein Fehler auftreten, wird zu derin 
„ON ERROR GOTO“ angegebenen Zeiten- 
nummer gesprungen und das dort ste- 
hende Programm zur Fehlerauswertung 
abgearbeitet, 


Achtung: In der Auswertungsroutine darf 
kein weiterer Fehler auftreten, da das Pro- 
gramm sonst in einer Endlosschleife blei- 
ben würde. 
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-—- ERROR OFF 
Durch „ERROR OFF“ wird die Fehlerbe- 
handlung wieder abgeschaltet. 


--- RESUME 

„RESUME“ dient zum Verlassen der Feh- 
lerauswertungsroutine Es wird zum 
nächsten hinter dem Fehler stehenden 
Doppelpunkt gesprungen. 


-—- ERNR/ERLIN 

Diese beiden Funktionen dienen zum Er- 
kennen des aufgetretenen Fehlers. Mit 
„ERNR“ kann die Fehlernummer und mit 
„ERLIN" die Zeilennummeg, in welcher der 
Fehler aufgetreten ist, ermittelt werden. 
Die Fehlermeldungen und die ihnen zu- 
geordneten Fehlernummern entnehmen 
Sie bitte Tabelle 1. 


--- [BL „String“ 


Mit „LBL wird eine Zeile symbolisch be- 

zeichnet. d.h., außer durch die Zeilen- 1 
nummer, kann die Zeile auch noch durch 
die hinter „LBU stehende symbolische | 


Bezeichnung genau bestimmt werden. 


-—- G0T0 „String“ 


„GOTO“ mit Angabe eines Strings hat die- | 
selbe Funktion, wie der normale „GOTO“ | 


Befehl, nur daß zum nächsten folgenden 


Befehl, hinter dem mit „LBL* definierten | 


symbolischen Sprungziel 
wird. 


-—- E0SUB „String“ 


gesprungen} 


'„GOSUB“ entspricht dem „GOTO" Befehl, | 
nur daß er zum Aufrufeines mit „RETURN“ | 


abgeschlossenen 
dient. 


--- RESTORE Zeilennummer 


Unterprogrammes | 


Durch die Angabe einer Zeilennummer | 


hinter „RESTORE* wird der DATA-Zeiger 


nicht auf den Programmanfang, sondern. | 
auf das erste DATA-Element einer be- 


stimmten Zeile gesetzt, 


-—- RESTORE „String“ 

Diese’ Anwendungsart hat dieselbe Aufga- 
be wie Restore Zeilennummer, nur daß die 
Zeile symbolisch angegeben wird. 


IH 


--- ELSE Zeilennummer oder Label oder „:Pro- 
grammtext“ 

Durch den „ELSE“-Befehl wird der nor- 
male „IF... THEN.. Befehl wesentlich 
erweitert, Falls die hinter „IF“ angegebene 
Bedingung unwahr sein sollte, wird zum 
nach „ELSE“ angegebenen Sprungziel 
gesprungen oder der hinter dem Doppel- 
punkt folgende Programmtext abgearbei- 
tet. 


Nachdem der Basiclader eingegeben wor- 
den ist, sollte man ihn aus Sicherheits- 
gründen abspeichern. Nach dem Starten 
wird in der obersten Zeile die momentane 
DATA-Zeilennummer, das momentane 
Hexbyte und der Status ausgegeben. 

Solite beim Einlesen ein Fehler auftreten, 
korrigieren Sie bitte die gesamte Zeile, bis 
die DATA’ fehlerfrei eingelesen werden. 


Sind alte DATA's eingegeben, verlangt das 
Programm die Adresse des Gerätes, auf 
dem das fertige Programm gespeichert 
werden soll. 


Das Toolkit wird unter dem Namen „EX 
TENDED-BASIC“ abgelegt. 

Um das Toolkit zu aktivieren ist dieses Pro- 
gramm zu laden und mit „RUN“ zu starten. 


ey 


Tabelle 2: 


Tabelle 1: 

01 = too many files 

03 = file not open 

05 = device not present 
07 = not output file 


e 
09 = illegal device number 
r 


02 = file open 

04 = file not found 
06 = not input file 
08 = missing filenam 


10 = next without fo 


01 = „catalog“+chr$(13) 
02 = „disk“ 

03 = „list“+chr$(13) 

04 = „run“+chr$(13) 


05 = „dload“+chr$(34) 


06 = „dsave“+chr$(34) 


07 = „help“+chr$(13) 


11 = syntax 12 = return without 08 = „find“ 
gosub 09 = „trace” 
13 = out of data 14 = illegal quantit 10 = „walk“ 


Yy 

15 = overflow 

17 = undefd statement 
19 = redim’d array 


16 = out of memory 
18 = bad subscript 
20 = division by zer 


11 = „auto10*+chr$(13) 


12 = „dioad“+(18-Cursor right)+”:"chr$(13) 
13 = „dverify"+chr$(34) 
14 = „dmerge“+chr$(34) 





























0 15 = „del“ 
21 = illegal direct 22 = type mismatch 16 = „key“ 
23 = string too long 24 = formula too com 
niex . 
25 = can't continue 26 = undef’d functio 
n 
27 = verify 28 = Ioad 
10 REM Rss 120 220 GUSUB 310 2345 
20 REM * -—- EXTENDED BASIE V 2.0 —— *  <20: 2309 IF DE=FS THEN 120 <199> 
0 REM * * 127% 240 FRINT"CHOBEI"TAB (33) "ERROR{SPACEH": 
40 REM # WRITTEN AND COPYRIGHT 1985 * x95> END <I> 
50 REM * *  &147> 250 FRINT"FROGRAMMISPACE} IST{SPACEIFEHLE 
60 REM * BY DIETER VUELLERS *  <248> RFREI{SRACEH!" z241> 
70 REM * *  <167%> 250 INPUT"GERAETE{SPACEHADRESSE" : DV <18I> 
80 REM * 4786 LIPPSTADT 14 * «255 270 FOKEZ,DV X76% 
90 REM # * <1875 280 SYS 49955 aRs> 
GS REM RR HH 065 299 END <163> 
119 AD=11*4096: FRINT"ICLEARF" 29: 300 » x<103> 
120 X=0: FS=0 <140% 310 bEi=0O <215> 
130 READ H+s+ IFX< >OTHEN133 <109> 320 HE$=H$:HF=RIGHT# (HS ,2) 375 
151 ZN=FEEK (67T) +PEEK (64) #256 <13E%> 330 GOSUB 400 x144> 
132 PRINT" {HOHEFZEILE{SPACENE "ZN" IBPACEI 346 D1I=DE:HF=LEFTF CHEF, 2) 744 
BYTE{SFACE}: FOOTBPAGEISTATUSTSPACEIS TIFA 350 GOSUB 400 <164> 
CEIOKISPACH > ! <241l> 5350 DCE=Di+DC#rZ256 «13> 
133 FRINT*CHOHEI"TABCZLIHE iz 370 RETURN x1> 
140 IF Hf="-1" THEN 250 “845 a0 ı <183> 
150 GOSUB 400 X219> FIG 2 <193> 
150 POKE AD,DE AD7H 400 L=ASC CHE} ARSASCLRIGHTF CHF, 1?) ZRO> 
170 PS=PS+DC z133> 416 IFL>44THENL=L-55: GOTD430 x52> 
180 AD=AD+i <b> 420 IFLZSS8STHENL=SL-48 <145> 
190 x=X+1 <5t> 430 IFR>44 THENR=R-55: BDTO450 <212> 
200 IF X£217 THEN 136 <124> 440 IFR{SBTHENR=R-48 x17> 
210 READ H#$ <B5> 450 DE=L*16+R <i> 
16 CSompuhe mik 286 


2/86 


report 


460 RETURN 

1000 DATA 00,23,08,C01,07,79E,20,28,36,38, 
38,34,29,20,45,58,54, OSED 

1010 DATA 80,45,44,AB,42,41,53,49,43,20, 
56,32,20,28,44,56,297,0409 

1020 DATA 00,00,00,E1,82,3E,83,C03,C2,CD, 
38,30,11,20,20,20,24,0579 

1030 DATA 2A,.24,2A,20,43,42,4D,20,45,58, 
54,45,9E,44,45,44,20,0401 

1040 DATA 20,42,41,53,49,43,20,56,32,2E, 
30,20, 24,24,24,29,20,0370 

1050 DATA 20,20,11,20,28,42,29,20,31,37, 
38,35,20,42,59,20,44,031H 

1060 DATA 49,45,54,45,572,20,56,55,45,4C, 
40,45,52,53,20,20,40,0497 

1070 DATA 49,50,50,53,54,41,44,534,20,2D, 
20,2D,2D,2D,2D,2D,2D,03F1 

1080 DATA 2D,2D,2D,2D,20,2D,2D,2D,2D,2D, 
2D,2D,2D,2D,2D,2D,2D,02FD 

1070 DATA 2D,2D,2D,2D,2D0,2D,2D,2D,2D,2D, 
2D,2D,20,2D,2D,00,46,0349 

1100 DATA 7A,A0,04,84,0F,ED,00,02,10,07, 
C9,FF,FO,3E,EB,D0,F4,0829 

1110 DATA C9,20,F0,37,85,08,69,22,F0,55, 
24 ,0F ,70,2D0,09,3F ,D0,0775 


1120 DATA 04,49 ,99,D0,25,69,20,90,04,09, ° 


3C,90,1D,83,71,40,00,070F 
1130 DATA 84,08,88,56,7A,CA,CB,EB,BD,00, 
02,38,F9 ,9E,A0,FO,F5,07A4 
1140 DATA C9,80,D0,2F,05,0B8,A4,71,E8,C8, 
99,FB,01,C09,00,F0,38, 0843 
1150 DATA 38,89,38,F0,04,09,49,00,02,85, 
OF ,38,E7,55,D0,A0,85,0832 
11&0 DATA 0B,ED,00,02,F0,E0,C5,08,F0,DL, 
C3,99,FB,01,E8,D0,F0,0A35 
1170 DATA A6,78,E4,0B,C8,B9,9D,A0,10,FA, 
E9,9E ,A0,DO,BS,FO0,OF, 054 
1180 DATA BD,00,02,10,BD,99,FD,01,605,7B, 
A9,FF,85,7A,60,A0,00,080B 
1190 DATA B7,52,82,00,02,C8,E8,END,00,02, 
39,F9,52,82,F0,F5,69,0981 
1200 DATA 80,D6,04,05,08,D0,79,A6,7A,E5, 
0B,C8,6B7,51,82,10,FA,0B3C 
1216 DATA B9,52,82,D0,E0,F0,C5,08,48,5N, 
A8,98,48,AD,8D,02,C039,08FA 
1220 DATA 01,F0,F9,58,A9,68,AA,AD,7C,90, 
FO,1E,AD,81,90,C05,60,090& 
1230 DATA F0,02,E0,15,18,98,65,5F,CD,50, 
20,F0,02,90,09,A9,12,074F 
1240 DATA 20,D2,FF,A7,00,8D,7C,70,68,28, 
10,0F,24,0F,30,08,[09,0619 
1250 DATA FF,F0,07,C9,CC,R0,08,40,24,07, 
AC,F3,06,38,E9,CB,AA,0°D3 
1260 DATA B4,497,A0,FF,CA,FO,08,C0B,B9,52, 
82,10,FA,30,F5,C8,B7,0A33 
1270 DATA 52,92,30,05,20,47,AB,DO,FS,4C, 
EF,A6,20,73,00,95,9D,0796 
1280 DATA 30,14,95,39,A4,3A,8D,7E,90,BC, 
7F ,90,85,79,#4,7B,ED,0801 
1290 DATA 80,90,80,81,90,20,79,00,20,D4, 
71,20,D9,81,4C,AE,07,0766 
1300 DATA C9,CC,70,04,09,E60,90,06,20,79, 
00,40,ED,47,38,£9,CC ,OSCE 
1310 DATA 0A,AA,ERD,AD,B2,48,BD,AC,82,48, 
40,73,00,47,00,85,0D,0715 
1320 DATA 20,73,00,69,E0,70,04,09,E2,90, 
06,20,72,00,40,8D,AE,0731 
1320 DATA 38,89,E0,0R,48,20,75,00,20,Fl, 
AE,60,A8,59,05,82,85,084A 
1340 DATA 55,B9,06,82,85,56,20,54,00,4C, 
8D,AD,A9.64,40,90,8D,0815 
1350 DATA 04,03,9C0,05,03,89,47,A0,81,8D, 
06, 03,80,07,03,R97 ,AF ‚0530 
1360 DATA A0,20,8D,08,03,80,09,03,89,F7, 
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“105373 


x51> 


x133> 


x205> 


x121> 
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<243> 
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Programme 


R0,81,80,0A,03,3C,0B,064AF 

1370 DATA 03,50,4F ,46,06,45,52,52,4F,D2, 
45,40,53,05,46,42,CC,O6CB 

1380 DATA 41,04,30,45,52,47 ,05,44,49,53, 
CB,43,41.54,41,40,9F,0664 

1390 DATA C7,4B,45,D9,44,.45,00,46,47,4E, 
E9,41,55,54,CF,4F,40,077A 

1300 DATA C4,54,52,41,43,05,57,41,4C,CH, 
52,45,53,55,40,C5,48,04FE 

1310 DATR 45,4C0,D0,43,40,03,56,52,45,D3, 
53,57,95,03,45,52,4E ,0725 

1420 DATA D2,45,52,4C0,49,CE,00,07,AF.BO, 
&F „34,89,84,90,07,AF,079E 

1430 DATA 7A,BC,D4,83,54,84,5F,95,81,88, 
5C,89,64,89,DA,8C,37,0892 

1440 DATA BD,FE,BE,C4,BF,95,90,43,ES,1R, 
32,31,92,00,99,72,AF,0913 

1450 DATA 92,00,00,08,0C,00,00,01,08,22, 
FF ,78,99,09,42,05,8E „OÜS&D 

1450 DATA 15,D0,20,A3,FD,20,50,FD,20,15, 
FD,20,5B,FF „59, 20,53,078%A 

1470 DATA E4,20,BF,ES,A2,FB,9A,AD,DA,82, 
£D,86,02,R2,00,BD,09,0963 

1480 DATA 80,F0,09,20,D?,FF,EB,DO,FS,4C, 
72,FE,20,01,87,AD,DF,OAG7 

1490 DATA 82,AC,E0,92,85,2B,84,2C0,A2,00, 
30,80,86,33,88,35,868,07AC 

1500 DATA 37,84,34,84,36,84,38,18,20,25, 
FE,70,44,A6,40,4E,83,05E7 

1510 DATA 48,8A,48,78,48,20,BC,F5,20,El, 
FF „D0,C9,20,5B,FF ,20,0BFF 

152G DATA SE,FF,?0,29,82,AD,DA,82,5D,86, 
02,AD,DE,82,80,20,D0,08CD 

1550 DATA AD,DC,87,8D0,21,D0,AF,BO,8D,BA, 
02,A9,08,8D,DD,832,AY9,0911 

1540 DATA 00,8D,DE,82,8D0,34,8D,85,CF,ED, 
58,84,80,57,8A,%9,E1,09F8 

1550 DATA A0,82,.8D,00,80,80,03,80,AY7,.3E, 
A0,82,90,02,90,8D,18,0&FA 

1560 DATA 02,80,03,80,80.,19,03,49,458,A0, 
83,8D,16,03,8C,17,03,0S1D 

1570 DATA A2,05,BD,0OF,FD,7D,03,86,CA,Dü, 
F7,R9,0A,A0,95,8D.14,0955 

1580 DATA 03,8C0,15,05,A9,01,85,.C0,27,32, 
A0,70,8D,00,05,8C0,01,061A 


1590 DATA 03,47,8D,A0,84,8D,02,03,80,07, 
03,50,07,90,50,20,79,0583E 
1600 DATA 00,90,65,D0,23,20,E2,0%,3C,4E, 
84,AD,DD,27,95,B4,20,07F& 
1610 DATA B4,FF,A9,6F,85,89,20,96,FF,20, 
A5,FF,20,D2,FF,C9,0D,0A49 
1620 DATA DO,F&,20,AB,FF,60,20,05,84,4C, 
4E,84,19,20,9E ,AD,24,075E 
1630 DATA 0D,30,03,40,08,AF,20,A3,B6,09, 
29 ,AA,90,03,40,71,A5,D64D 
1540 DATA 20,77,00,AD,DD,82,85,BA,20,B1, 
FF ,AF,6F ‚85, 89,20,73,08ED 
1650 DATA FF,AO,00,B1,22,20,AB,FF,CB,CA, 
D0,F7,20,AE,FF,60,40,0A0B 
1660 DATA 46,62,20,9E,B7,E0,08,70,F6,E0, 
OC.RÜ,F2,8E,DD,87,60,09E8 
1870 DATA RO,01,60,46,D1,E1,60,20,5D,84, 
90,FA,40,D1,E1,20,79,0891 
1680 DATA 00,F0,1E,18,20,9E,AD,24,0D,20, 
03,4C,99,AD,20,R6 ‚56 ,0603 
1690 DATA 85,87,20,.79,00,05,22,04,23,B5, 
BB,94,60,39,560,10,49,0784 
1700 DATA 24,85,02,49,02,A0,00,85,BB,84, 
BC,A9?,01,85,67,AD,DD,07E& 
1710 DATA 82,85,BA,A9,60,85,89,20,D5,F3, 
970,03,40.D1,E1.A5,BA,09E0 
1720 DATA 20,BA,FF,AS,B9,20,96,FF,A9,00, 
85,90,A0,03,84,FB,20,0BE& 
1730 DATA AS,FF,85,FC,A4,90,D0,30,20,88, 
FF ,A4,70,D0,35,A4,FB,0B01 
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1740 DATA 88,DO,EF,A6,FC,20,CD,BD,A7,20, 
20,16,E7,20,A5,FF,A&,09DD 

1750 DATA 90,DO,1F,AA,F0,06,20,168,E7,38, 
B0,F0,n97,00,20,16,E7 ,07E7 

1760 DATA AD,5D,02,67,01,F0,F9,A5,71,697, 
7F,FO,04,A0,02,DO,B9,0987 

1770 DATA 270,42,F6,60,20,7%7,00,D0O,03,4C, 
10,948.20,03,90,90,08,0643 j 

1780 DATA A5,5F,A4,60,85,41,84,42,40,37, 
85,70,8A,A0,20,F7,B7,07C1 

1790 DATA AS,15,569,FA,DO,07,40,48,B2,20, 
13,A6,80,043,4C,E3,hB,07F9 

1800 DATA #5,5F,E9,01,85,41,A5,60,E9,00, 
85,47,095,14,R4,15,85,0760 

18106 DATA 3F,84,40,60,20,73,00,89,51,A0, 
ER, 78,80,14,05,B0,15,0617 

1820 DATA 03,55,60,20,75,00,47,CA,A0,85, 
78,80,14,03,80,15,03,0586 

1830 DATA 58,60,20,79,00,.D0,03,40,AA,Ba, 
£9,CC,F0,;,D4,09,91,F0,0943 

1840 DATA E0,20,9E,B7,E0,11,970,02,40,48, 
E2,E6,00,F0,F9,A97,D8,0969 

1850 DATA AO,9F,85,F7,84,F8,18,95,F7,67; 
28,85,F7,99,00,65,F8,09FE 

1860 DATA BS,FB,CA,DO,FO,20,FD,AE,iB,20, 
gE,AD,24,0D,30,05,40,0B05 
1870 DATA 977,AD,20,93,B4,09, 
71,A5,98,AA,61,22,91,085C 
1860 DATA F7,88,C0,FF,00,F7,8A,A8,C0,28B, 
E0,04,9,00,91,F7,20,0A24 

1890 DATA 79,00,60,00,00,00,AD,C7,85,F0, 
03,40,61,86,98,05,E0,0743 

1900 DATA 07,90,0E,AD,8D,02,BD,C8,85,A5, 
C5,80,09,85,40,21,EA,0867 

17910 DATA EO,05,90,EE,AD,BD,02,C0,CB,85, 
00,09,45,05,C00,09,85,0A15 

1920 DATA DO,07,F06,DD,A9,00,RA0,A0,85,A7, 
94 ,A8,E0,04,F0,22,E0,07B& 

1930 DATA 05,00,02,02,02,E0,08,00,02,A2, 
04 ,E0,03,D00,02,2,08,0636 

1940 DATA 18,45,A7,69,78,985,47,R9,00,65, 
8,85 ,989,C05,D0O,FO,AE,OF3C 

1750 DATA 80,02,E0,01,D0,0D,18,95,A7,69, 
28,985 ,47,69,00,685,A8,0724 

1940 DATA 85,A8,E0,02,D0,08,20,90,86,20, 
9C,85,E0,04,D0,0D,18,0742 

1970 DATA AS5,A7,69,68,85,#7,A9,01,65, AB, 
95,AB,49,04,8D,07,85,0BBZ 

1980 DATA AS,01,85,09,49,F6,85,01,90,00, 
B1,%7,F0,23,99,77,02,0B16 

1790 DATA C8,6C0,0A,D00,F4,84,C08,CE,07,895, 
FO,14,18,95,47,59, 0,0995 

2000 DATA B5,A7,A9,00,65,08,85,48,45,A7, 
85,01 ,40,08,95,84,C05,08D& 

2010 DATA A9,00,80,07,35,49,49,85,01,4C, 


29,90,05,40, 


09,85,19,45,97,69 ,A0,086E 


18 


2020 DATA 85,47,089,00,65,28,85,A8,60,49, 
00,A0,90,85,F7,84,F8,0950 
2030 DATA A9,01,85,F9,A9,00,85, FA,AF,IE, 
A0 „87,20, 1E ,AB,A&,F9,0948 
2040 DATA EO,0#,B0,05,49,30,20,D2,FF,A9, 
00,20,CD,BD,A9,2C, 20 ,07B1 
2050 DATA D2,FF,A9,00,85,FB,A5,01,85,02, 
9,F6,85,01,A0,00,Bt ,OBPD 
2050 DATA F7,FO0,3A,A2,00,DD,32,87,F0,15, 
E8,E0,1A,D0,F6,09,22,0A6l 
2070 DATA F0,57,69,20,90,643,09,9F,BO,04, 
9,77 ,60,56,40,A5,FR,008% 
2080 DATA DO,10,C0,00,F0,05,49,2B,20,D2, 
FF,A9,22,20,D2,FF,E&,08FC 
2090 DATA FB,48,20,D2,FF.CB,C0,28,D0,02, 
C0,00,00,08,49,22,20,0919 
2100 DATA D2,FF,20,D2,FF,A5,FB,F0,07,49, 
22,20,D2,FF,C&,FB,A5,0B7B 
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2110 DATA 02,85,01,49,0D,20,D2,FF,18,45, 
F7,59,28,85,F7,A9 ,00,07997 

2120 DATA 65,F8,85,F8,E68,F9,A5,F9,69,11, 
FO,03,40,5A,86,35,07,0A57 

2130 DATA 85,01,60,AA,78,48,8A,48,C0,00, 
FO,10,A5,F8,F0,07,A9,0842 

2140 DATA ?2,20,D2,FF,C5,FB,A9,2B,20,b7, 
FF,AS,02,85,01,472,00,0868 

2150 DATA BD,BB,87,F0,06,20,D2 
F5,58,AR,A9,00,20,0D,0ASB 

Z140 DATA BD,A#,297,20,D2,FF,A9,F6,85,01, 
59,AB,4C,1D,87,4B,45,0335 

2170 DATA 59,00,90,05,10,9F ,?C,1E,1F,9E, 
81,95,96,97,98,9%,94,0772E 

>10 DATA 9B,12,92,13,95,11,10,91,90,94, 
43,438,52,24,28,00,99,0547 

2190 DATA 00,A0,R0,85,F7,84,F8,49,04,20, 
88,985,F9,84,FA,A2,01,0FAC 

2200 DATA AG,00,B1,F®,91,F7,F0,06,C8,C0, 
29,D0,F5,88,09,84,02,0A14 

2210 DATA 18,45,F9,65,02,85,F9,497,00,65, 
FA,85,FR,18,55,F7,69, 0938 

2220 DATA 28,85,F7,A9,00,65,F8,85,F8,E8, 
E0,11,.00,00,50,43,41,0784 

2230 DATA 53,41,40,4F ,47,00,00,44,49,53, 
46,00,40,49,55,54,0D,0IF8 

2240 DATA 00,57,55,4E,0D,00,44,40,4F,41, 
44,22,00,44,52,41,55,035& 

2250 DATA 45,72,00,48,45,40,50,0D,00,46, 
49,4E,44,00,54,52,31,0365 

2260 DATA 43,45,00,57,41,4C0,4B,00,41,55, 
54 ,4F ,31,30,0D,00,44,03A2 

2270 DATA 42,4F,41,44,1D,10,1D,1D,1D,1D, 
10,1D,1D,1D,1D,10,10,0299 

2280 DATA 1D,10,1D,10,10,3A,0D,00,44,56, 
45,52,49,46,59,22,00,0313 

2290 DATA 44,4D0,45,52,47,45,277,00,44,45, 
4C,00,48,45,59,00,4C ,03EU 

2300 DATA OB,AF,4C,48,B2,20,44,89,20,79, 
00,D0,03,40,42,A6,90,0620 

2310 DATA 06,FÜ0,04,C9,AR,DO,E7,20,5B,A9, 
#5,14,85,F7,A5,15,35,0BCD 

2320 DATA F8,20,797,00,F0,27,09,AB,DO,DS, 
20,73,00,20,6B,47,A5,082B 


‚FF,EB,DO, 


2330 DATA 14,05,15,69,00,D0,09,A9,FF,85, 


14,07,F9,85,15,18,45,07097 
2346 DATA 14,69,01,85,F7,89,00,65,15,85, 
FA,20,539,06,20, 33,A5, 0685 
2350 DATA AS,F7,A4,FB,85,14,84,15,20,13, 
A6 ‚AS,5F ,A4 ‚60 ,85,F7 ,0967 
2360 DATA 84,F8,AS5,F9,R4,FA,85,14,84,15, 
20,13,A8,05,5F,A4,&50,0BCB 
2370 DATA 85,F9,84,FA,A0,00,18,A5,20,69, 
02,85,2D,09,00,65,2E,0O6DF 
23809 DATA 85, 2E,A5,FA,C5,ZE,D0,06,#5,F9, 
C5,2D,F0,13,61,F9,71,09E9 
2390 DATA F7,E6,F7,D0,02,E6,F8,E4,F#,DO, 
02,E6,FA,40,07,87,38,0B27 
2300 DATA #5,2D,E9,02,B0,02,06,2E,20,59, 
6,20 ,33 ,45,99,00,40,066F 
2410 DATA DE,90,44,49,52,45,43,54,20,4D, 
46 ,44,45,20,4F ‚4E,4C0,0570 
2420 DATA D9,45,9D,50,0D,49,34,85,22,80, 
99,84.73,58,58,40,47,0715 
2430 DATA 94,60,00,20,44,89,70,9E,87,E0, 
07,90,03,40,48,B2,BE,065B5 
24430 DATA 50,87,70,FD,AE,A9,34,A0,EA,BD, 
14,03,8C0,15,03,45,7A,077E 
2450 DATA A4,78,85,.F7,84,FB,A5,2E,A4,2C, 
85,74,84,758,A0,00,6B1,09706 
2450 DATA 7A,CH,11,7A,0C8,C9,00,50,03,4C0, 
47 ,84,51,7A,85,F9,C8,08bF 
2470 DATA Bl, 7A,85,FA,18,45,7%,69,04,85, 
7A,69,00,65, 78, 85, 7B, 07D& 
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2480 DATA AO,FF,C8,B1,F7,F0,27,48,B1,7%, 
00,14,68,C08,84,02,19,094B 

2490 DATA A5,79A,65,02,85,78,97,00,55,75, 
85,7R,40,5A,89,68,D1 ,07A& 

2500 DATA 7A,FG,DD,E6,7%4,50,07,E6,7B,AC, 
AF,89,AD,50,89,D0,17,09D7 

2510 DATA A6,F9,95,FA,20,ECD,ED,20,A6,B6, 
AB,E2C0,08,F0,3F ,497,20,09C0 

2520 DATA 20,D2,FF,CB,DO,F4,AD,00,C05,AL, 
01,05,85,FB,84,FC,A?, 0785 

2530 DATA I1E,A0,BA,8D,00,03,80,01,05,EA, 
86,FD,AS,FF,A4,FA,85,084& 

2540 DATA 14,84,15,20,13,A6,40,BD,A6,A5, 
FB,A4,FC,BD,00,03,80,0771 

23530 DATA 01,03,.A6,FD,9A,A9,91,20,D7,FF, 
20,09,A9,84,072,668,602,07AC 

2560 DATA 18,45,74,65,07,85,74,49,00,65, 
78,85,76,9C0,89,89,A7,072E 

2570 DATA EA,AO.B5,8D,14,03,80,15,03,4C, 
86,E3,00,00,00,00,00,04EC 

2580 DATA 00,A7,00,80,58,84,8D,57,BA,4C, 
73,00,20,79,00,09,CC,0675 

2590 DATA FO,EE,20,8A,AD,26,F7,B7,A5,14, 
05,15,F0,E2,05,14,A4,0905 

2600 DATA 15,90,56,89,80,57,89,97,00,BD, 
58 ,84,49 ,01,8D,59,84,0721 

2610 DATA 60,AD,59,84,D0,02,F0,41,AD,58B 
8A,F6,37,18,A0,54,89,0B4C 

2620 DATA &D,56,8A,80,54,89,AD,55,BA,6D, 
'57,8A,80,55,84,AE,54,0800 

2620 DATA 8R,AD,55,84,20,0D0,2D,38,20,86 
B6& ,69,C8,84,06,49,20,08F7 

2640 DATA 99,768,02,88,A9,90,20,D2,FF,A9 
10,99,76,02,88,D0,F3,09F2 

26550 DATA A9,00,8D,58,9N,20,60,R5,0&,7A 
84,75,20,73,00 ,AA,F0,.0769 

z560 DATA F3,A2,FF,86,34,90,03,40,96,A4, 
20,6B,A9,R5,14,84,159,0813 

2670 DATA 8D,54,8A,80,55,84,A9,00,8D,7D, 
70,20,79,00,09,00,F0,075B 

2680 DATA 05,7,01,8D0,58,8A,50,9F ,A4,20, 
46,52,4F,4D,70,00,20,0541 

2690 DATA. 54,4F,20,00,42,00,49,00.70,07, 
R7,01,42,01,20,04,8C ,O50Z 

2700 DATA 20,34,88,90,FA,A5,02,48,F0,03, 
20 ,AD,BC,48,402,D1,E1,080D 

2710 DATA 85,93,85,04,96,02,20,77,00,DO, 
0D,935,02,F0,03,20,AD,08506 

2720 DATA 8C,20,10,F7,80,13,8C,20,57,E?, 
AS,B7,DO,06,20,10,F7,0750 

2730 DATA AU,13,BC,AD,DD,B2,85,BA,AS,ZB, 
94 ,2C,85,03,84,04,A9 ,0O90F 

2740 BATA 06,85,B7,A5,02,F0,0B,20,77,00, 
FO,28,20,AD,80,4C0,09 ,063E 

2750 DATA AF,20,77,00,F0,1D,20,FR,AE,7O, 
797,00,F0,11,20,BA,AD,0711 

2760 DATA 20,F7,B7,A5,14,04,15,85,03,94, 
C4,40,9D,8B,49,01,85,0873 

2770 DATA B9,A7,00,85,70,R6,B9 ,20,AF,F5, 
9 ,60,85,B9,20,D5,F3,09C9 

2780 DATA AS,BA,20,09,ED,AS5,B9,20,07,ED, 
206,13,EE,85,AE „85,90 ,0930 

2790 DATA 4A,4A,70 ,06,20,30,F5,4C0,13,86, 
20,13,EE,85,AF ,84,D0,0709 

2B00 DATA 08,45,03,85,AE ,A5,C4,85,AF,20, 
D2,FS,45,9D,FO,0E,A9,0A10 

=810 DATA 0C,A0,8B,20,1E,AB,A&,AE,AS,AF, 
20,CD,50,20,F3,F4,08,0881 
2820 DATA 95,AE,B6,AF,84,B0,AS,9D,FO,OE, 
#9,13,A0,88,20,1E,AB,ÖOBAC 

#830 DATA A&,AF,AS,B0,20,CD,BD,AS,AE,A6, 
AF,A4,BO,28,40,78,E1,0A1D 

2B40 DATA AR ,sC,00,03,40,20,20,9C,90,FA, 
4C,D1,E1,20,57,E2,45,07CB 
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2850 DATA B7,D0,06,20,10,F7,40,13,8C,AD, 
DD,92,85,Bn,A5,2B,A4 ,OSSE 

2860 DATA 2C,85,01,84,02,A5,2D,A4,2E,85, 
NE ,„B4,AF,20,79,00,F0,084B 

2870 DATA 2A,20,FD,AE,20,79,00,D0,03,4C, 
48,B2,20,84,AD,20,F7,0715 

2880 DATA B7,A5,14,A4,15,85,01,84,02,20, 
FD,AE,20,8A,AD,20,F7,OSEE 

2890 DATA B7,AS,14,04,15,85,0E,84,AF „a0, 
EA,FS,00,00,00,00,49,0763 

2500 DATA 01,2C,#9,00,85,02,20,04,86,A7, 
07 ,A0,8C0,8D,02,03,80,0667 

2210 DATA 03,03,45,2E,85,20,38,A5,2D,E%7, 
02,85,2B,B0,02,06,2C, 0503 

2920 DATA AS5,02,D0,03,40,68,E1,A6,02,AC, 
14,95,20,AD,BC,4C,83,06D6 

2930 DATA A4,AD,74,B0,AC,75,80,80,02,02, 
80,03,03,AD,76,BC,AC,077D 

2940 DATA 77,8C,85,2B,84,20,60,AD,02,03, 
AC,03,02,8D,74,80,8C0,0640 

2950 DATA 75,80,95,2B,A4,2C,8D,76,8C,BC, 
77 „8C,60,D0,35,A5,2B,07FA 

2960 DATA A4,2C,85,7A,84,7B,A0,04,20,FR, 
A8,20,09,99.C8,20,FB,07EA 

2970 DATA AB,A0,00,95,74,91,2B,08,AS,7B, 
91,2B,.R9,FF,85,14,85,088D 
29806 DATA 15,20,153,A6,18,A5,5F ,69,02,85, 
2D ,49,00,65,60,85,2E,0548 

2990 DATA 20,597,96,40,86,E3,60,090,00,00 
00,00,00,00,00,00,00,0334 

3000 DATA 00,00,00,00,00,00,00,00,00,00, 
20,09 ,00,00,00,00,00, 0000 

3010 DATA 00,40,48,52,20,79,00,F0,5F,C9, 
CC ,F0,66,20,9E,B7,E0,ÖB4E 

3020 DATA 21,BO,ED,BE,30,8D,20,FD,AE,20, 
GE,B7,E0,14,50,E0,BE,0958B 

3030 DATA 31,8D,20,FD,AE,20,9E,B7,E0,10, 
BO,D3,8E,32,8D,A9,00,0857 

3040 DATA 80,32,8D,20,797,00,F0,0D,20,FD, 
RE,20,9E,B7,E0,02,B0,07ES 

3050 DATA BC,BE,33,8D,A2,00,A9,00,9D,24, 
8D ,E8,E0,0C,D0,F8,A5,08E4 

3060 DATA 39,94,3A,C0,FF,F0,06,8D,2E,8D, 
SC ,2F ,BD,AY,01,8D,34,07C7 

3070 DATA 80,580,AD,54,8D,07,02,8D,34,8D, 
40,00 ,BE,99,00,8D,34,0604 

S0B0 DATA 8D,4C,73,00,A5,90,30,34,AD,34 
&D,FO,OE,AS,29,CD,2E,0737 

3090 DATA 80,00,2B,A5,3A,CD,2F,8D,D0,22, 
AD,DE,B2,F0,15,AD,8D,0930 

3106 DATA 02,29,01,D0,15,AD,8D,02,29,04 
FO,F9,AD,8D,02,29,04,05CC 

3110 DATA DO,F7,AD,8D,02,09,01,F0,F?,40 
B2,81,92,02,%0,00,BD,0928 

3120 DATA 24,80,E8,99,24,89D,CB,BN,24,8D, 
E8,79,24,8D,C8,C0,00,08DF 

3130 DATA DO,EC,A5,39,8D,2E,8D,A5,2A,8D, 
2F ,5D,AD,B&6,02,8D,17,07E5 

3140 DATA 8D,A5,C7,8D,1A,80,A5,D1,A4,D2, 
SD,1E,8D,Bt,1C,80,45,0928 

3150 DATA D3,8D,1D,BD,A5,D4,8D,1E,8D,AS, 
D5.6D0,1F,BD,A5,D6,80,0976 

3160 DATA 20,8D,A5,D8,8D,21,8D,A5,F3,A4, 
F4,8D,27,8D,8C,23,80,070D 

3170 DATA AD,33,8D,F0,17,AC,30,8D,FO,14, 
AE,31,8D,CA,18,20,F0 ‚0841 

3180 DATN FF,A2,00,49,70,70,D2,FF,EB,EO, 
08,D0,F&,AC,30,8D,AE,OAOG 

3190 DATA 31,8D,18,20,F0,FF,AD,32,8D,8D, 
84,02,A0,00,49,12,70,06E1 

3200 DATA D2,FF,AY,23,20,D?,FF,B9,24,8D, 
AA,E9,25,8D,0B,08,94,0Ar1 

3210 DATA 02,20,CD,BD,AD,S0,8D,18,67,07, 
38,E5,D3,27,27,AB,89 ,O72F 
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3220 DATA 20,70,D2,FF,B8,D0,FB,A5,02,4A, 
18,6D,31,89D,AA,AC,30,081B 
3256 DATA BD,26,FÖ,FF,A4,02,06,00,D00,C0, 
AD,1A,80,85,607,AD,1B,090& 
3740 DATA BD,AC,tC,8D,85,D1,84,D2,AD,1E, 
8D,85,D4,AD,1F,8D,85,091D 
3250 DATA D5,AD,21,80,85,DR,AD,22,BD,AC, 
23,8D,85,F2,84,F4,AD,O9ES 
3260 DATA 197,8D0,3D,88,02,AC,1D,80,AE,20, 
80,84,D2,85,D&,AD,34,0800 
3270 DATA 8D,29,02,00,03,40,C5,BD,AD,3s, 
3D,29,01,8D0,24,80D,60,0570 
3286 DATA 20,79,00,D0,03,40,08,AF,C09,CC, 
06,08,%9,00,8D,DE,B2,0772 
3290 DATA 40,73,00,C07,71,D0,ED,A9,01,8D, 
DE ‚,82,40,73,00,00,00,072C 
3360 DATA 00,00,00,00,00,20,79,00,69,CD, 
FO,03,40,4B8,49,N5,9D,0584 
3316 DATA FÜ0,03,40,AB.BE,20,73,00,09,89, 
F0,03,4C,08,AF,20,73,070R 
3320 DATA 00,20,03,70,B0,14,20,65B,49,20, 
15,85,08,58,5,5F ,E9,0677 
3220 DATA 61,85,5F,A5,60,E9,00,85,50,28, 
80,03,4C,832,AB,A5,5F,076&E 
3540 DATA A4,50,8D,1F.BF,BC,ZU,8F,A?7,84, 
#0,BF,8D,00,03,8C,01,06F3 
3350 DATA 03,A7,FE,A0,BF,8D,07,03,8£6,053, 
02,4C,AE,67,88,10,03,065B 
3560 DATA 30,91,E3,8D,21,8F,20,FB,AB,AS, 
359,A4,24,BD,24,8F,8C0,0B45 
3370 DATA 25,8F,A5,7A,A4,7B,8D,22,8F,8C, 
23,8F ,AD,1F,8F ,„AC,20,0795 
33580 DATA 8F,85,7A,84,7B,40,AE,A7,09,CC, 
FO,03,40,08,AF,A9,B?,OBE4 
3390 DATA AO,70,8D,00,03,8€,01,03,40,73, 
00,45,90,F0,03,40,AB,063BR 
3400 DATA H3,AD,22,8F,0D,23,8F,D0,0D,A7, 
82,R0,90,80,00,02,80,0724 
3410 DATA 01,07,40,29,90,A3D,22,8F,AC,23, 
SF ,85,74,84,7B,A9,00, 04 
#420 DATA BD,22,8F,80,23,8F,AD,24,8F,AC, 
25,8F,85,39,84,34,60,0719 
3430 DATA A9,82,A6,90,8D,00,03,80,01,02, 
A9 ,853,A0,A4,8D,02,03,067D 
3440 DATA BC,03,03,40,83,54,57,45,53,55, 
4D,453,20,57,49,53,48,0522 
3450 DATA 4F,55,54,20,45,52,57,4F ,D2,09, 
15,90,90,85,72,84,22,0645E 
3460 DATA 58,68,40,47,84,20,9E,AD,A9,00, 
85,02,70,79,00,09,89, 0680 
3470 DATA FO,09,09,47,2G0,FF,AE,A9,B0,85, 
02 ,A5,61,D0,13,70,73,0842 
3480 DATA 006,09,.00,F0,23,09,CE,DO,F3,20, 
73,06,F0,1A,40,80,71,0832 
3470 DATA AS,02,D0,06,20,73,00,4C0,80,%91, 
20,79,00,970,EE,68,68, 0654 
3500 DATA 20,79,00,4C,B5,81,60,00,00,00, 
06,00,00,A9,00,8D,7C,042D 
3510 DATA 90,54,30,09,A5,90,D0,05,A9,01, 
8D,7D0.90,40,88,E3,70,0788 
3520 DATA 4A,89,AN,7D,70,F0,15,A9,01,8D, 
7C ,70,AD,7F,90,AC,7F ,OBBB 
35350 DATA 90,95,14,84,15,20,13,A6,40,09, 
8 ,60,1B,20, 96 ,RD,24 ‚O&5D 
2540 DATA 0D,20,03,40,99,AD,20,A3,B5,60, 
20,79,00,F0,02,B0,02,05E8 
3550 DATA 18,40,18,20,7E,AD,24,0D,30,03, 
4C,99,AD,20,A3,5B&,85,05SEF 
3560 DATA F9,A5,78,A4,78,85,F7,84,F8,AS, 
2B,A4,20,95,74,84,76,09CD 
3570 DATA C6,7A,A5,7A,09,FF,D0,02,06,7B, 
AO ,01,B1,7#,08,11,74,095% 
3580 DATA FO,55,C8,Bi1,7A,C08,85,14,R1,7%, 
29,05,15,20,FE,ARB,0,0979 


<40> 
1387 
22087 
sa, 
A122 


171 


3570 DATA 00,B1,7A,F0,E3,C7,CF,F0,08,A0, 
01,20, FB,AB,4C,0D,91,08DtT 

3600 DATA 20,73,00,09,22,F0,03,40,48,B2, 
AO,01,20,FB,A8,A0,00,04BE 

3610 DATA B1,7A,D1,22,D0,29,C8,04,F9,DO, 
FS,20,FB,A8,20,79,00,O9BE 

3420 DATA 09,00,F6,07,09,272,00,04,20,73, 
Q0,45,74,94,76,85,5F ,07F4 

3630 DATA 84,60,A5,F7,A4,F8,85,7A,84,7B, 
38,60,20,FB,A8,40,0D,OBCE 

3640 DATA 91,99,71,90,971,85,22,84,23,68, 
68,40,47,A4,40,41,42,0700 

3650 DATA 45,40,20,4E,4F ,54,20,46,4F ,59, 
4E,04,20,03,970,80,03,05E4 

3660 DATA AUC,AO,AB,9A5,5F,A4,650,85,7A,84, 
7B,95,14,94,15,85,39,0704 

26570 DATA B4,5N,60,20,79,00,08,47,00,20, 
70 ,FF,28,D0,05,20,57,058£ 

3680 DATA Ab,AC,AE,AF,20,50,26,20,79,00, 
20,80,91,4C,AE,A7,99,0781 

3690 DATA 03,20,FB,AS5,R5,78,48,A5,74,48, 
AS5,39,38,95,39,48,89,07B& 

3700 DATA 8D,48,20,79,00,20,80,971,4C,6E, 
#7 ,R0 ,00,206,797,00,D9,0652 

3710 DATA 04,92,F0,05,08,00,08,D0,F3,60, 
98,0A,R8,68,58,49,A7,0849 

37206 DATA 49,A7,AD,48,59,0D,72,48,E9,0C, 
972,48,05,78,A4,7B,8D,07Fü 

3734 DATA 70,92,80,71,92,40,73,00,91,8B, 
5C,89,84,8D,99,44,25,079A 

3740 DATA 8F ,35,90,FB,84,7F,91,98,91,B&, 
91,36,92,71,92,20,A0 ,0BE& 

3750 DATA ES,AD,DE,82,6D,20,DO,ABD,DE,82, 
8D,21,D0,AD,DA,82,8D,C0ABH 

3760 DATA B84,02,60,A0,00,29,00,997,00,D4, 
C8,00,19,00,F8,60,07,0830 

3770 DATA DO,FO,04,20,79,00,40,A0,AA,20, 
73,00, 20,9E,67,E0,28,0705 

37980 DATA 90,03,40,48,B7,84,48,20,FD,AE, 
20,9E,B7,E0,19,90,03,0777 

3790 DATA 40,48,P2,58,A8,20,F0,FF,20,79, 
C0,40,A0,AA,00,00,609,0755 

3B006 DATA 93,D0,06,20,73,00,402,18,8B,C9, 
74,D0,06,20,73,00,4C,0SFD 

3810 DATA 18,8C,09,95,00,05,20,73,00,4£, 
1E,8B,C9,D1,D0,08,20,06F0 

3820 DATA 73,00,40,78,8C,AB,70,72,AC,71, 
77,95,79,84,7B,A7,44,080C 

3330 DATA 3C0,A5,AF,AC,21,8F,4C,22,B3,AC, 
24,8F ,ND,25,8F,84,6&3 ÖßSE 

3840 DATA 85,62,A2,70,38,30,47,EE,A9,25, 
AG,08,85,F7,84,F8,A9,088B# 

3850 DATA 00,A0,80,85,F9,B4,FA,A2,00,A0, 
00,B1,F7,91,F#,08,00,0A28 

SB60 DATA F7,E6,FB,E&,FA,EB,E0,13,DO,EE, 
&8,68,4C0,E2,FC,A5,01,0BFO 

3870 DATA 48,78,A9,F6,85,01,99,00,A0,BO, 
35,F7,84,F8,89,00,A0,091F 

3890 DATA 08,85,F9,84,FR,A2,00,A0,00,B1, 
F7,91,F9,C9,00,F9,E5,ÜAEF 

3890 DATA FB,E&,FA,EB,E0,13,DO,EE,68,85, 
01,58,49,00,A0,1B,85,09AE 

3700 DATA 2D,B4,2E,A6,02,20,BA,FF,AF,0E, 
A2,5F,A0,0C3,20,RD,FF,0857 

3910 DATA A9,2E,A6,7D,A4,2E,20,D8,FR,Aa0, 
9D,ES,45,58,53,45,4E ,07C0 

SI20 DATA 44,945,44,2D,42,41,53,49,43,FF, 
66 ,00,00,00,00,00,00,035B 

Z920 DATA -1 


x # X 
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Ja, Sie haben richtig gelesen! 


Mit Hiife des Interfaces Typ 29000 {ohne 
Pufferspeicher}) oder Typ 29008 {mit 
8KByte Pufferspeicher) kann man Druk- 


ker, die für Anschluß an den Commodore -.... 
64 gedacht sind, auch an Schneider- ” 


Computer anschließen. 


Die Handhabung ist denkbar einfach: Der 
Adapter wird einfach zwischen Computer 
und Drucker geschaltet, so daß der Druk- 





Eine neue Datenmonitor-Serie istab sofort 
von MICROSLAR lieferbar. j 

Mit einem großflächigen 31 cm Bild- 
schirm, der mit einem Reflexionsschutz 
versehen ist, wird diese hochauflösende 
Monitor-Serie zu einem wichtigen Peri- 
pherie-Bestandteil. 

Aufgrund einer Videobandbreite von 22 
MHz präsentieren diese Datenmonitore al- 
leSchriftzeichen und Grafiken flimmerfrei, 
gestochen scharf und in lesefreundlichem 
grün oder bernstein {amber). Der Refle- 


report 








ker weiterhin für den Commodore 54 ver- 
wendbar ist. 


Bei der Version mit dem 8KByte Puffer- 


"en Speicher haben Sie den Vorteil, daß 
gleichzeitig gedruckt und weitergsarbei-. 





xionsschutz verhindert die lästige Fremd- 
lichtblendung. 
Die Modelle 
MS-1250/P42 {Bildschirm grün) 
MS-1265/PLA {Bildschirm bernstein) 
sind mit einem Composit-Video-Eingang 
versehen und damit arı die meisten Com- 
modore-Home-Gomputer über Cinch- 
Buchsen anschließbar. Über einen zusätz- 
lichen Audio-Eingang lassen sich mit die- 
sem Datenmonitor auch Tonsignale von 
z.B. Sprachsynihesizern wiedergeben. 


Modell 
Techn. Daten | ms-1205P42 | MS-1 265 PLA 
Bidröhre Typ 12°, 90° 12", 90° 
Phosphor P42 grün PLA bernstein 
(entspiegelt) (entspiegelt) 
Eingangssignal Video Art composit composit 
Pegel 1005 Wi 10 EOS Vs 
Impedanz 750 750 
Stecker Cinch Cinch 
“ Eingangssignal Audio Pegel 150 mVon 150 mVr 
Impedanz 10 K0 10 KQ9 
Stecker inch inch 
Yideo Bandbreite 22 MHz (— 3 dB} 22 MHz (-- 3 dB} 
Budio Frequenzgang \300 Hz - 7 kHz {— 3 dB) | 300 Hz - 7 kHz (—3 dB) 
Ausgang 0,3 W/5% THD 6,3 W5% THD 
Abtasifrequenz Horizontal ; 15,625kHz +600Hz | 15,625 kHz + 600 Hz 
Vertikal 47-63 Hz 47-63H2 
Bildschirm nutzbare Bildschirmfläche 242 x 182 mm 242 x 182 mm 
Darstellung | 25 Zeilen x 80 Zeichen | ?5 Zeilen x 80 Zeichen 
Matrix 11x12 11x12 
Auflösung 920 x 300 Pixels 920 x 300 Pixels 
Stromversorgung Eingang |2209V c+ 10%) 50/69 Hz | 220 + 10%) 50/60 Hz 
Leistungsaufnahme 30 WAnar  * 30 Yamax 
Umgebungstemperatur Betrieb 10 bis 40°C 10 bis 40°C 
Lagerung — 25 bis 55°C - 25 bis 55°C 
Luftfeuchte 20% bis 80% rF, 20% bis 80% r£F. 
Abmessungen (BXHXT) | 305x 280 x 303mm 305 x 220 x 303 mm 
Gewicht Id | 6kg 


tet werden kann. 


Die beiden Interfaces werden von Wiese- 
mann Mikrocomputertechnik, Wuppertal, 
zum Preis von 248,-- DM (Typ 29000) 
und 298,-- DM (Typ 29008) angebeten. 





Ein optimales Arbeiten mit dem Datenmo- 
ritor wird durch einen ergonomisch kon- 
struierten'Schwenkfuß gewährleistet. 


MICROSCAN, 2000 Hamburg 60, 
empfiehlt folgende unverbindliche End- 
verkauispreise inkl. MWSt: 
Datenmonitor MS-1265/P42 


(Composit) DM 399,-- 
Datenmonitor MS-1265/PLA 
(Composit) DM 419,-- 
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Günstige Tool- und Utility-Steckmodule 
Mit fünf ROBCOM-Modulen unterschiedlicher Leistung und 
unterschiedlicher Preisklasse, bietet Mastertronic GmbHeine 
neue Modulpalette für den C 64 an. 

ROBCOM-Module sind Steckmodule, die eine Reihe Tools und 
Utilities für einen Preis zwischen 99,-- und 159,-- DM ent- 
halten. 

Das kleinste Modul, ROBCOM 10, bietet für einen Preis von 
nur 99,-- DM wichtige Zusatzfunktionen: Turbolader für Kas- 
sette, zusätzliche Diskettenfunktionen, Diskcopy, Tapecopy, 
Tapeazimuth mit freier Testkassette, jede Menge Basicerwei- 
terungen, Funktionstastenbelegung, Gentronicsschnittstelle 
und einen Reseftaster. 

Das größte Modul, ROBCOM 50, welches für nur 159,-- DM 
erhältlich ist, bietet ein Kassetten- und Diskettenturbo. Dieser 
bringt eine 5-fache Geschwindigkeitssteigerung bei der 
Floppy und sogar eine 10-fache bei der Kassette. Der einge- 


baute Basictoolkit verfügt über 36 zusätzliche Befehle. 
Neben dem Turbo und den Tools, verfügt ROBCOM 50 über 


Funktionstastenbelegung, Tapeazimuth mit Testkassette, Centronicsport und einem 
sehr komfortablen Assembler- und Disassembler. 
ROBCOM 20, ROBCOM 30, ROBCOM 40 sind jeweils Module, die die Funktionen von 


ROBCOM 10 und ROBCOM 50 mischen. 





Als weitere Produktneuheit bietet die Fa. | verschiedene Computer (Gentronics- 


Wiesemann Mikrocomputertechnik, 


Wuppertal, den Schnittstellenvervielfa- 
cher Typ 2C/C/0 an. Dieser bietet Ihnen 
die Möglichkeit, einen Drucker an zwei 
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schnittstellen) anzuschließen. Im Gegen- 
satz zu den bisher erhältlichen, einfachen 
manuellen Umschaltern arbeitet dieses 
Gerät automatisch. D. h., zunächst können 
beide Computer Daten senden, und der 
Computer, der zuerst den Drucker belegt, 
blockiert den anderen Computer automa- 
tisch. Erst wenn der gerade druckende 
Computer nach einigen Sekunden keine 
Daten mehr sendet, beginnt der Drucker 
mit dem Ausdruck der Daten des anderen 
Computers. Auf diese Art wird eine Mi- 
schung der verschiedenen Daten vermie- 
den. Der Preis liegt bei 248,-- DM und 
dürfte im Vergleich zu den manuellen Um- 
schaltern als durchaus günstig angese- 
hen werden. 


Gomputs mib 





Nähere Informationen: 
Mastertronic GmbH 
Kaiser Otto Weg 18 
47170 Soesi 


Messevorschau: 
Miero-Computer ’86 


In der Zeit vom 29. Januar bis 2. Februar 
findet in Frankfurt die internationale Fach- 
messe „Mikrocomputer ’86" statt. 

Der Schwerpunkt dieser Fachmesse liegt 
auf fünf Anwendergruppen: Handel, 
Handwerk, Industrie, Gesundheits- und 
Bildungswesen. Diese Messe legt beson- 
deren Nachdruck auf die Orientierung der 
Anwender und wendet sich nicht nur an 
die EDV-Insider. . 

Hier soll der nötige Überblick über den 
Markt der dezentralen Informalionsverar- 
beitung und praxisgerechten Problemlö- 
sung vermittelt werden. 

So wird mit über sechzig Referaten, Semi- 
naren, Diskussionen und Workshops das 
Thema allen Besuchern dieser Messe nä- 
her gebracht. Die Teilnahme an diesen 
Veranstaltungen ist im Eintrittspreis inbe- 
griffen und kann von Jedermann besucht 
werden. 
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| Die Rakete „Europan I“ steht startklar an der Rampe und wartet auf den Abflug. Ein Start ist je- 
doch noch nicht möglich, da alle Treibstofftanks der Trägerrakete leer sind. 


| Ihre Aufgabe ist es nun, mit Hilfe eines Hub- 

| schraubers in das Erdinnere zu einer Tankplatt- 

Ral (e ens art = ee | form zu fliegen und dort Treibstoff für die Rakete 
Be | aufzunehmen. 


Bilie den Commodore 16 5 >> Dieser Auftrag muß innerhalb von 150 


Zeiteinheiten erledigt sein. 


Während Ihres Fiuges mit dem Hub- 
schrauber müssen Sie darauf achten, daß 
Sie nicht an die Höhlenwände stoßen oder 
mit den wildumherfliegenden Ufo’s kolli- 
dieren. 


Um alle Treibstofftanks der Trägerrakete 
zu füllen, müssen insgesamt 1000 Treib- 
stoffeinheiten von Ihnen zur Rakete ge- 
bracht werden. Pro Hubschrauberflug 










1 REM SHBBHRHEHRHRHIRRIHHBISHISISIHIIHIBIHIHIHIHIHIERE können Sie jedoch nur 210 Einheiten 
2 REM + %* transportieren, so daß mehrere Flüge not- 
Z REM * RAKETENSTART %* wendig sind. 

4 REM # %* 

2 Ben ii es * Istesihnen geglückt, die Rakete innerhalb 
7 REM * JAN-PETER GUZIK * der vorgegebenen Zeit aufzutanken, 
B REM * * können Sie diese durch Druck 
2 REM RSRRBRBRHHRSSHRISHHRIRHHIISHHHIHRISIHHIHNNER auf die Feuer- taste Ihres 
10 COLORO, 11 COLOR1 2: C0LOR4,3,3 Joysticks zünden. 
20 VOLB 

30 POKE&45298,195 

40 POKE6S3277,48 

50 FORT=B32T0849: READA: POKET „ArFE=FE+A: NEXT P Tes$ 
606 IFFES>Z11STHENPRINT"LFEHLER IN DATAS (1720) ": STOP . 

70 85932 Fire 


80 FORT=12800T013047: READA: FÜKET „Ar FE=FE+RI NEXT 
70 IFFE<S>34951THENPRINT"LFEHLER IN DATAS (1730-2030) ":5TOP 
100 FORT=13055T013083: PEKET „Or NEXT 

110 GOSLIB14909 

120 BENCELR 

130 5=329741 V=Bı CO= 1501 U=40277 ReUlr UF=7:ı DIeö: RTad 
140 REM KURS HREH 

150 REM SPIELFELD 

1&0 REM Kette 

370 COLOR1,13,6 


R #0 
Start! 


180 FRINTMIESEITISSESERTER III E RE ETE 
170 FORT=1T02: PRINT"E FTAB(ZPY FE" SNEXT 
200 PRINT" I GGG EEIGERSST SERIE EIKE TEA ER EEE fer ® 


210 COLOR1,15,6 

220 CHAR1,18,1, "ROCKET TANKS” 

230 CHAR1,2,1," TANK: " 

2430 COLOR1,15,4 

| 250 CHAR1,2,2,"TIME:” 

| 250 CHAR1,18,2, "SCORE: "3 COLOR „23 PRINTSC 
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799 
B00 
810 
820 
8350 
240 


840 


FORT=327 1 10355 iSTEPAO:POKET, 96 ı POKET-39 , 7654 NEXT 


COLOR1,3,3 c 16/116 Software 























PRINT" ——— —_ a wird ständig gesucht! 
PRINT ———— — — —. ‚Senden Sie Ihre Onter- | 
COLOR1,11,4 u 
PRINTı__ nn Tronic-Verlag u 
PRINT" — —- m nn 0 _n | Posttach 41 _ .. - 
COLOR1,10,2 ‚3444 Wehrell 
PRINT"— nn _ u u ne 
PRINT" o0— — 0 [— {[t 
PRINT—————— — nn ":POKE2902,119: POKE2903,119 
EOLOR1,10,0 
PRINTY_———— 0... ol 
PRINT!" — Do BR 
CHAR1 „0,24, "—— ———— — 1 POKE4071,64 
RESTORE 2050 
FORT=1T07: READA: POKEA „BB: POKEA-1024 ,86: NEXT - 
REM Kun In dieser Ausgabe 
REM RAKETE j , ’ 
REM #888 finden Sie wieder 
COLOR1,2,.6 . 
CHAR ,20,6,"-_"ıPRINT"  _"eCOLOR1,15 2 tolle Spiele 
CHAR1 ,„20,7,"| ["3PRINT" ——-": COLOR1,15,4 und 
CHAR1,20,8,"-. “"sPRINT"N  -"sCDLOR1,15,3 
CHAR1 120,9, "-_"KPRINT"@ ——"sCOLOR1,15,1 1 Anwendungs- 
CHAR1,20,10,""sPRINT'"Z —-"sCOLOR1,2,3 
CHAR1,20, "ALT EPRINT"S — 1 :COLOR1,2 programm 
e0T0670 uuun unter der 

De 7712 . 
REM HAUPTPROGRAMM Rubrik „Werkstatt“ 
REM HH .. 
T=30y 2) für den C 16/116. 
ONJ+16010750 ,650, 660,670, 680,690,700,710, 720 





GDTO13SO 
B=B-401 SOUNDS , 700,23 6070730 870 IFPEEK (B) =82THENB=V 4 GOSUB1 1901 8DT0750 
B=B-39ı RI=65: SOUNDS ‚500 „23 8010730 880 POKEV „32: POKEB ,BSı POKEB-1024 ,113 
B=E+1ıRI=65: SOUNDS „700,21 BDOT0739 890 FORT=BO0TOZOOSTEP-30: SOUNDS, T,24 NEXT 
B=B+41: R1=45: SOUNDS „500 „2: G0T0730 000 FOKEB,B& 
B=B+40 1 50UNDZ3 ‚700, 21 GOT0730 710 FORT=S00T010205TEP104 SOUNDZ,T,13 NEXT 
B=B+39 ı Rl=661 SOUNDS, 500,21 0710730 320 coloRı 2 
B=BE-1:R1=&66:15DUND3 , 700,2: GOTO730 940 CHARI, 10,4, MBAME DVER m" 
B=B-41: RIl=46 1 SOUNDS, 500 ,21G0T0730 750 FORT=1T030001 NEXT CLRıBOTO110 
IFPEEK (B) < >32THENB4O 960 REM wu 
POKEV ‚321 POKEB-1024 ,54 1 POKEB,RI: V=B HAIE 
SOUNDS ,300,2 990 ONUFGRTO1000,1010,1020,1030,1040, 
Fe 1050, 1060,1070 

KU] — . le 
FRINT"EREN" TAB (7) 2: PRINTUSING" HH", CO 1900 en oc 
IFCO<O.STHEN1 360 1020 U=Li+11GOTO1080 
an unuunn 1030 U=L+413 G0TO1080 

1040 U=4U+40:G0OT01080 

REM BAME OVER 


1056 Ual}#+39ı160T01080 
1050 U=U-1150T01080 
1070 U=U-41:GDTD1080 


REM HH + 
IFPEEK (B})=81 THENB=V ı BOEUB1 13504 GDTO7SO 


IFPEEK (B) >BSTHENB=Vı GOTO7SO 
IFPEEK (B) =S8THENGOSUB1 2801 G0T0740 1080 IFB=UTHENPOKER, 324 BOTDBBO 
Computbs mik 
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- 1990 IFPEEK (U) <>32THENU=R  UF=INT {RND 1) #8) +1 E RETURN 
1100 POKER 32: POKEU-1024 ,51: POKEU,87ı R=U 
1110 RETURN 
1120 REM eHHite* 
1130 REM AUFTÄANKEN 
1140 REM wann er* 
1150 IFTA<ZIOTHENTA=TA+20: SOUND „900,2: ELBERETURN 
1150 S5C=8C+20: PRINT"EIME" TAB (24)5C 
1170 FRINT" ERW" TAR (7) 4: PRINTUSING"###", TA 
1180 RETURN 
1190 IFTA=-OTHENRETURN 
1200 5C=807+500: PRINTER" TAB (24)5SE 
1210 RT=RT+TAı FORT=BOOTDISOSTEP 10: SOUNDI „T, 21 BOUNDZ , T+50 „2: NEXT 








1220 PRINT"ERI"TAB{SOIRT 1250 REM HH 1280 SC=e5C+2001DI=DI+1 

1230 TA=0160SUBi170 1250 REM DIAMANT AUFNEHMEN 1290 SOLUND1,800,20 

1240 RETURN 1279 REN RR 1300 IFDI<7THENIS2O 
1310 FORX=1T04: FORY=700T010208TEPS50: SDUNDI „Y,Ze NEXTı NEXT: SC=SC+1000 

1320 FRINT"EI" TAB (24) 5C: RETURN 1390 EHAR1,19, 11," 

1330 REM BRRBBEHEHIHIHRIIHIHNN 1400 FORT=900T0700STEP-B: SDUNDS,T,3:NEXT 

1340 REM START DER RAKETE 1410 CHAR1,19, 11," 9" 

1359 REM HH 1426 FORT=8O00T0100STEP-101SOUNDS,T,1:NEXT 

1350 IFRT<LODOOTHENFSZO 1430 RESTORE2050 

1370 SC=5C0+2500 1 PRINT "EREI" TAB (24) SC 1440 FORT=1T027: READAı SDUND1,A,10:50UNDZ, 


1450 
1460 
1470 
14890 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1550 
1570 
1580 


1739 
1740 
1750 
1780 
1770 
1780 
1790 
1B00 
1B10 
1820 
1830 
1840 
1856 
1860 
1870 
18890 
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COLOR1,11,5 A,SıNEXT 








GOTD120 1590 CHAR1,4,10,"4 + 4 3 3 t 4 4 4 4 
REM HENKE 1600 FORT=24521024775TEFPFı YAY+7ı POKET „YıNEXT 
REM ANFANGSBILD 1510 COLOR1,15,X 
REM Hehe 1620 X=X+1ı 1IFX=BTHENX=O 
SENECLR 1530 CHAR1,8,5,'"RAKETENSTART" 
COLOR1,16 
CHARL „11,22, "IPRESS FIRE BUTTONE" 1640 CHAR1,4,10,CHR# (148) ı ERINT 
COLOR1,2,6 1650 FOKES476 ,„PEEK (3506) ı POKE3SSOS ,32 
CHAR1,18,12," 7 _"sCOLDOR1,15 14560 POKE2452 ,FEEK (2482) 
CHAR1,18,13,"! I"zEOLDR1,15,4 15470 IFJOYt2) >127THENRETURN 
EHAR1,18,14,"-, -"ECGLÖR1,15,3 1586 GOTO1610 
CHAR1,18,15,"-!_F:COLOR1 ,15,1 1490 REM HR 
CHAR1,18,16,",. "1 COLOR1,2,3 1700 REM DATAS FÜUER NEUEN ZEICHENSATZ 
CHAR1,18,17,"TT" 1710 REM WHHHHHHBIBRHRIRRISRRHIREIIEETEI 
1720 DATA162,0,187,0,208,157,0,48,189,0,209,157,0,49,202,208, 241,96 
DATAS&,116,148,114,171,204,73,29 1890 DATA255,255,21,117,55,117,1213,255 
DATA31,4,70,253,95,31,14,0 1900 DATA255,255,23,119,55,119,17,255 
DATA248,32,78,191,250,248,112,0 1710 DATA255,255,155,153,153,165,195,127 
DATA129,195,165,153,153,165, 195,129 1920 DATAS0,178,193,215,235,171,44,40 
DATAZS5S , 56, 36,24 24,36 ,66,255 1950 DATA252,172,203,215,217,197,180,120 
DATA1,1,1,3,7,18,31,63 1940 DATAO,„B,36,50,100,40,&8B,1 
DATA12B,128,12B,172,224,240,248,252 1930 DATA17,68,0,18,128,10,33,1435 
DATA127,255,128,298 255,179, 255 ,255 1960 DATAG,0,24,36,126,255,231,126 
DATA254 „255,1 ,255,255,1,255,255 1776 DATAO,O0,16,56,68,56,16,0 
DATAZ47 ,247 ,247 , 247 ,247,247 ,240,255 1920 DATAO,0,0,255,255,255,0,0° 
DATA223 ,223, 223,223, 223,223,31,255 1990 DATAO,0,0,7,15,31,60,56 
DATA23S „240,247,247,240, 255, 255,240 2000 DATAO,0,0,192,224,240,36,56 
DATA255 „31,255, 255,31, 223,223,31 2010 DATAS6 „56,56 ,56 ,56 ,56.,56, 56 
DATA2SS, 255, 252, 253,251 ,240,247,247 2020 DATAS6,56,568,63,31,15,0,0 
DATA255,255,63,191,223,15,239,237 2030 DATAS6,56,56,248,240,224,0,0 
DATA2SS ,255,56,56,124, 254 254,254 2040 REM 
2050 DATA3833, 3884 , 3669 ,3869 „4030 , 3602 ,3878 
2060 DATAS16,453,516,453,516,596,643,643,596,516,453,453,345 
2070 DATA345,453,516,516,345,770,770,643,643,770,345,345, 262,262 
Compute mib 35 
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HEADLINE C-16 erzeugt in den oberen beiden Zeilen des 
Bildschirms eine Kopfzeile, die ständig den Arbeitsrmodus, 
den freien Speicherbereich, und die Systemuhr anzeigt. 


Im Modus unterscheidet HEADLINE 0-16 zwischen „DIRECT“ (Direkt-/Einga- 
bemodus), „PROGR“ (Basic-Programmodus) und „TEDMON“ (Maschinen- 
sprachemonitor). Der freie Basic-Bereich zeigt die Differenz zwischen Varla- 
blen-ende und String-anfang an. Die Zeit wird aus dem aktuellem Stand von 
T! errechnet, 


Nach dem Start des Basic-Programms erzeugt dieses ein Maschinenpro- 
gramm, das das eigentliche HEADLINE C-16 darstellt. Das Basic-Programm 
wird nicht weiter benötigt und kann gelöscht werden. 

Nach dem Start des Maschinenprogramms wird am Ende des Basie-Spei- 


chers ein Interruptprogramm erzeugt und gestartet, das zweimal in jeder Se- | 


kunde durchlaufen wird, und das dabei die Kopfzeile erzeugt. Das Mpr. löscht 
sich nach seinem Ende selbst. 
Nach dem Abtippen {man sollte die Basic-Zeilen von 900 abwärts exakt über- 


nehmen, um einen Absturz des Programms zu vermeiden) und Starten des: 1 


Programms meldet es, daß die DATA-Zeilen überprüft werden. Sollte ein Feh- 
ter gefunden werden, stoppt das Programm und meldet die entsprechende 
Blocknummer. Wenn die DATA-zeiten korrekt sind, stoppt das Programm 
nochmals und fragt, ob es fortgesetzt werden soli. Sie sollten hier. „N“ einge- 
ben und das Basicprogramm sicherheitshalber abspeichern, da es im 2. Teil 
zerstört wird. 

Wenn Sie „J“ drücken, wird das Programm fortgesetzt und durch ein Maschi- 
nenprogramm ersetzt, das in den DATA-Zeilen abgelegt ist. 

Nach wenigen Sekunden wird das Basicprogramm beendet. Wenn ein Listing 

1985 SYS 4112:NEW 
ergibt, kann das Maschinenprogramm abgespeichert werden. Dieses Maschi- 


0 REM RRHRSRRRSRARHRHRESREC RICHTER nenprogramm ist das eigentliche Programm. Es kann wie ein normales Basic- 
1 REM #** “** programm geladen, gespeichert und gestartet werden. Nach dem Start des 
2 REM *## HEADLINE C1& (BASIC #88 Maschinenprogramms sollte auf dem Bildschirm eine Kopfzeile und ein Titel- 
3 REM ##* Pe bild erscheinen. Falls dies nicht passisert, oder die Systemuhr nicht korrekt 
4 REM *## (6) BY JOACHIM THEES ++ a orzangtı cs Basicprogramm überprüft und das Maschinenpro- 
j nem pie BUTENTHAL S2B #** - Wenn das Maschinenprogramm korrekt arbeitet, Kann das Basicprogramm 

er 5552 MODRBACH ##* auf der Kassetle oder der Diskette gelöscht werden, das es nicht wieder benö- 
7 REM *##* - 16.08.1985- #% tigt wird. 
8 REM HERE Die Schriftfarbe der Kopfzeite kann vorn Basic aus mit dem Befehl GOLOR3,... 
BO: geändert werden. Die Kopfzeile kann nur durch POKE 212,0 und zweimaliges 
30 REM DATAS UEBERFRUEFEN Drücken der HOME-Taste gelöscht werden, Durch POKE 212,1 wird sie 
100 FRINT"REK" Ve a tetem Interrupt Ite die Hi 
110 PRINT"M"TAR(1OY"Id HEADLINE C16/116 W* a a orcan da das Interruptpro- 
120 PRINT"SEISIEITTE WARTEN: DATAS WERDEN GEFRUEFT" gramm dabei beschädigt werden könnte und der 
130 RESTORE Computer dadurch abstürzen würde. Sollte dies 
140 FORI=1T06: 5SU=0 passieren, können Basic-Programme nur durch 
150 FORJ=iT085:READ A: SU=SU+A:NEXTI Drücken der RESET-Taste bei gedrückter RUN 
160 READ A: IFSU=ATHENNEXTI: GOTD180 a lan kann 
170 PRINT" EHLE _ ton 1. . m dies zu vermeiden, kann man eventu- 
ao 127: on Fr R IN DATA-BLOCK NR. "3 1; "!t22":5STOR=RUN | im Maschinensprache-Monitor 

. 1 
150 FORJ=1T068: READ A: 5U=StH Ar NEXTI eingehen. 0314 De oe RETURN 
200 READ A: IFSUK< >ATHENI7O Dadurch wird das Interruptprogramm völ- 
210 PRINT"EIBIDATAS OK Fttterervaggge lig abgeschaltet. 
220 FRINT"EBMOLLEN SIE JETZT DAS MASCHINENPROGRAMM" Die Uhr kann mit Ti$ = „UHRZEIT“ gestellt 
230 PRINT"WBERZEUGEN ? 1{J/N)" werden. 
240 BETKEY At: IFAF<>"J"THENPRINT"EBNEIN" =: END 
250 5 
20 REM BRATEN RER 
270 2 
280 REM DATENBLOCK #1 
290 DATA 000,013,016,193,007,158,052,049,047,050 ,058,162,000,000 ,000 ,000,173 
300 DATA 057,005,141,022,255,162,096,160,062,134,051,132,052,134,053,152,054 
310 DATA 134,055,132,056,182,001,134,208,134,212,202,032,105,0168,169,010,1353 
320 DATA 202,1697,006,133,205,032,105,0168,169,004,133,202,169,010,133,203,032 
330 DATA 105,016,162,000,189,158,016,157,096,062,252,208,247,189,168,017,157 
340 DATA 8693 
350 8 
560 REM DATENBLODECK #2 
370 DATA 096,063 ,232,224,158,208,245,162,096,160,062,12Q,142,020,0053,140,021 
330 DATA 003,088,096,169,032,032,210,255,252,189,116,016,208,247,098,017,019 
390 DATA 147,000,018,032,072,0697,065,068,075,073,078,069 ,032,067 ‚049 „054,052 
400 DATA 146,000, 040,067 ,041,032,048,056,047 ‚049,057 ,056 ,053, 032,066 ,087,052 
26 Compuhe mit 
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ı 740 
| 750 
| 760 
| 770 
i 780 
| 750 
| 800 
B10 
820 
830 
840 
850 
860 
870 
830 
870 
| 900 
910 
920 
930 
740 
950 
360 
970 
| 980 
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DATA 


Programme 


DATA 074,079 ,065,067,072,073,077,032,084,072,069 ,069 ,083,017,000,120,166 


7310 


REM DATENBLOCK #3 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
® 


212,240,024,174,230,007 ,224,002,176,013,169,017,032,210,255,032,210 
255,162,002,142,230,007,198,7208,240,003,075,014,206,169,030,133,208 
169,160,141,000,012,170,173,025,255,041,127,141,000,008,160,041,153 
038,008,072,138,153,038,012,104,136,208,244,173,022,255,041,127,160 
038,153,000,008,156,208,250,240,056,185,189,062, 240,007 ,157,001,012 
10157 


REM DATENBLOCK #4 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
& 


200,252,208,244 ,200,096,032,013,015,004,005,058,000,148,133,132,141 
143,142,000,132,137,146,132,131,1408,000,144,146,143,135,1468,174,000 
032,0064,018,005,005,058,000,032,020 ,009,013,005, 058,000, 162,000 ,032 
175,062,165,154,201,160,176,010,165,129,7208,004, 160,014 ,208,002,160 
021,032,175,062,160,028,032,175,062,134,003, 132,004, 165,051 „056,229 
7990 


REM DATENBLOCK #5 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


049,008,133,209,165,052,040,229,050,133,210,150,000,162,000,165,207 
056 ,249,086,063,008,133,207,165,210,040,249,087,063,008,133,210,232 
040,176,234,165,209,024,121,086,063,008,133,209,165,210,040,121,087 
063,133,210,202,138,166,003,024,105,176,157,001,012,230,003,200 ‚200 
172,010,144,197,176,010,016,039,232,003,100,000,010,000,001,000,166 
9585 


REM DATENBLOCK #6 


003,164,004,032,175,062,134,003,165,155,134,209,155,164,134,210,166 
163,134,211,150,000, 152,000, 165,209, 056,249 ‚232,063, 008,133,209,165 
210,040,249,233,063,008,133,210,165,211,040,749, 234 ,063,008,133, 211 
232,040,176,225,1655,209,024,121,232,063,008,133,209,165,210,040, 121 
233,053,008,133,210,1685,211,040,121,234,0632,133,211,202,138,166,00% 
11577 


REM DATENEBLOCK #7 . 


DATA 
DATA 
DATA 
DATA 
DATA 


024,105,176,157,001,012,230,003,169,010,274,030,240, 240,224 ,033,240 
234,200,200,200,192,017,144,1688,162,000,165,163,230,165, 208,008, 230 
164 ,208,002,230,163,076,014,206,074,046 ,032,084,072,069,059,083,102 
245,032,193,075,003,160,140,000,016,014,000,088 , 002,000 , 060 „000,000 
752& 


REM OR IIRNIIER HH EE IHR 


REM MASCHINENFROGRAMM ERZEUGEN 

RESTORE: PRINT "ERLEBEN" TAR {109 "9 HEADLINE C16/11& 

FRINT"SBERBIBEITTE WARTEN: WDAS MASCHINENFROGRAMM" 

PRINT'EBEWIRD ERZEUGT." 

KEYL," SAVE "+CHR$II4) +" HERDLINE C15"+CHRE (34) +" 1" 
FORI=40961T04673: READA: IFASZSSTHENFOKEI „ArNEXT:ELSEREADA: POKEI ,„A:NEXT 
PRINT"ERIOK. " 

FRINT"BIBABSPEICHERN DES MPR. DURCH I Ft 8 'agpkl”" 

REM ZEIGER FUER BASIC-ENDE KORRIGIEREN 

FOKE45 ,588: FOKE45 „18: CLR 


REM HERRIN 


END 


Compute mib | 








Computer-Kommunikation 


auch für 6-16/116 


Beim Durchblättern der Ausgabe 1/86 
stießich auf S. 6 aufdas Programm „Gom- 
puter-Kommunikation“ für den Gommo- 
dore 64. Da auch ich als G-16 Besitzer arı 
diesem Programm interessiert bin, möch- 
| te ich fragen, ob dieses Programm nicht 
für den C-16 erhältlich ist? 

| Stephan Scholi, Essen 


Redaktion: Das Programm ist nur auf 
| demCommodore 64 lauffähig. Ei- 
ne Version für den C-16/116 liegt 
uns hier leider nicht vor. Vielleicht 
schreibt jedoch einer unserer Le- 
ser dieses Programm für dieses 
| System um und schicktes uns zur 
Veröffentlichung ein. 


Fehlerhafte 6-16/116 Listings 


Ich habe ein Programm für den C-16/116 
abgetippt und mußte dann leider feststel- 
ien, daß es nicht funktioniert. Muß man 
annehmen, daß das Spiel „Hueycobra“ 
absichtlich mit Fehlern abgedruckt wird? 
Ich finde es peinlich, wenn man immer für 
das selbe System (G-16/116} Reklamatio- 
nen bekommt. Das gilt auch für das Pro- 
gramm „Helmut und die Zeitmaschine“, 
Roswitha Patro, Essen 


Redaktion: Um Ihnen gezielt weiter- 
helfen zu können, hätten Sie uns 
eine genaue Fehlermitteilung ge- 
ben müssen. Da aber die Zu- 
schriften mit den fehlerhaften Li- 
stings für den C-16/116 nicht ab- 
| nehmen, möchten wir nochmals 
einige Hinweise weitergeben. 

Tippen Sie die einzelnen Pro- 
grammzeilen sehr sorgfältig ein 
I und vergleichen Sie diese vor 
| dem Abspeichern nochmals ganz 
genau. Wir können aus Erfahrung 
sagen, daß die meisten Fehler bei 
der Eingabe der Datazeilen für die 








Grafikzeichen entstehen. Diese 
Fehler haben dann zur Folge, daß 
das Bild verzerrt und keine Fehler- 
meldung sichtbar wird. Achten 
Sie also bei der Eingabe der Data- 
zeilen auf evtl. Fehler. 
Ein sicherer Beweis für die Funk- 
tionstüchtigkeit des Programms 
„Heimut und die Zeitmaschine“ist 
die Einsendung des Herrn Ber- 
thold Bronisz aus Köln. Er sandte 
uns nämlich einen Verbesse- 
rungsvorschlag der es erlaubt, 
das Programm mit Joystick und 
über Tastatur zu steuern: 
370 F=JOY{1):TA=PEEK(198) 
371 IFF=30rTA=51THENO=C+H1 
380 IFF=7orTA=48THENC=C-1 
390 IFF=1280rTA=21THENGOSUB500: 
E-E-25 
400 IFF=10RTA=43THENG=-80:E=E-5 
Geben Sie diese Zeilen ein und 
die Steuerung funktioniert. Beiei- 
nem fehlerhaften Listing wäre ein 
Verbesserungsvorschlag nicht 
möglich gewesen. Wir können al- 
so nur sagen, alle bisher veröf- 
fentlichten Programme waren 
fehlerfrei und bedürfen deshalb 
auch keiner Korrektur. Vielen 
Dank auch an Herrn Bronisz! 


Beantwortung der Leserbriefe 


Werden auch solche Leserbriefe beant- 
wortet, die nicht abgedruckt werden? Da 
ich keinen Drucker besitze, möchte ich 
wissen, ob es nach eine andere Möglich- 
keit gibt, ein Listing einzuschicken? 
Klaus Konrad, Dortmund 


Redaktion: Der Tronic-Verlag ist be- 
müht, sämtliche schriftlichen oder 
mündlichen Zuschriften oder An- 
fragen zu beantworten. Wir ver- 
stehen diesen Service als eine 
Selbstverständlichkeit. Bei der 


Einsendung der Software-Unter- 
lagen ist ein Listing nicht unbe- 
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dingt erforderlich. Es genügt der 
Datenträger, eine Programmbe- 
schreibung und ein ausreichend 
frankierter Rückumschlag. 


VC-20 Zeilennummern-Problem 


Wie bringt man Programme in den VC-20, 
wenn es mehrere Teile sind, die immer 
wieder mit der Zeilennummer 1 anfan- 
gen? Walter Kessler, Hamburg 


Redaktion; VC-20 Programme die 
aus mehreren Teilen bestehen 
enthalten in der Regel Maschi- 
nenroutinen. Die einzelnen Teile |\ 
müssen getrennteingegebenund | 
hintereinander abgespeichert | 
werden. Bevor man einen der Tei- E 
le eingibt, sollte der Speicher mit | 
dem Befehl NEW gelöscht wer- | 


den, um sicher zu gehen, daß kei- 


ne Restdaten im Speicher stehen. 


Unvollständige ABO-Kassetten 


Nach dem Erhalt der Nr. 1786 incl. Kassette 
bin ich etwas sauer! Um die Eintipperei Si- 
cher zu machen druckt Ihr das „Check- 
summen-Programm“ ab, aber auf der 
Kassette fehlt es. Wenn kleine Programme 
mit zwei, drei Zeilen nicht auf der Kassette 
sind ist dies ja weiter nicht schlimm. Aber 
in diesem Fall ist das ärgerlich. Ich hoffe, 
daß dies ein einmaliger Ausruischer war. 
Michael Dröhsel, Berlin 


Redaktion: Zunächstmöchten wiruns 
bei allen Abonnenten für dieses 
Mißgeschick entschuldigen. Wir 
haben in der Tat vergessen das 
Programm „Checksummer“ auf 
die Kassetten zu kopieren. Bei al- 
ien weiteren Lieferungen werden 
wir bemüht sein, daß sich ein sol- 
ches "Mißgeschick nicht wieder- 
holt und alle Datenträger vollstän- 
dig Ihren Empfänger erreichen. 
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| Sportdisziplinen die jeden begeistern und die jeder schon 
| selbst betrieben hat 


Die erste Disziplin dieses Sport- 
programms ist der 50-Meter 
i Spurt. Sie müssen versuchen 

durch schnelle Links- Rechisbe- 

wegung des Joysticks den 
; Sportler innerhalb von sechs 
] Sekunden ins Ziel zu bringen. 


gleichzeitig den Trigger drük- 
ken. Insgesamt müssen 5 
Hürden übersprungen wer- 
den. Für jede umgerannte 
Hürde erhalten Sie zwei 
Strafpunkte. 


Die dritte und letzte Disziplin 
ist der Weitsprung. Auch hier 
muß der Joystick wieder in 
beide Richtungen bewegt 
werden. Der Absprung er- 
folgt automatisch. Das Zeitli- 
mit für die Weitsprungdiszi- 
plin ist 7 Sekunden. 


Im nächsten Lauf müssen Sie 
die 50-Meter Hürden innerhalb 
von 9 Sekunden bewältigen. 
| Das Laufen funktioniert wie 
] beim 50m Lauf und zum Sprin- 
i gen muß man den Joystick 
nach rechts bewegen und 





Gestartet wird das Programm mit LOAD““,1 und RUN. 
Die Steuerung erfolgt mit Joystick in Port 1. 


100 REM HRHHRHRHHBSRHHISRIETESERSIEIEIER TIERE 240 REM Din un + [HJ 


* # 
3110 REM * * 250 REM # "U" —->} + E{CLEAR]I * 
120 REM # DREIKAMFF + 2650 REM # "B" -> EHDMEI * 
130 REM #* * 270 REM # "p" => ECONTROLI + [83 * 
140 REM # (C) 1985 BY SWEN DTTMANN * 280 REM # "WW" => . + ERVS ONI # 
150 REM # % 290 REM #* "m —)> + [RVS DFFI# 
150 REM # "—" -> E[SHIFTI + [%*] * 3900 REM + * 

i 170 REM # "#4" ->} + [CA] * 210 REM BHBHHBHHBRRRRRHHEREER 

| 180 REM # "I" -> + CB] * 320 ı 

ı 190 REM # "—1 ah + EC3 * 330 COLORO,„11CDLOR4,1:5CNELR 
200 REM # "-t „> + {DJ * 340 3 
210 REM # "-" -> + [EI * 350 REM ABFRAGE TITELBILD tIFPEEK...} 
220 REM # "_" —> + £F] * 360 ı 
250 REM # "I" -> + 165) * 


370 IFPEEK (832})<>1&2THENA4FG 


380 FORA=01075: PRINT" EITRRTETEEEIENDN | 
390 PRINT"IEEI | II Ed 
300 PRINT'EERI | u u 
410 PRINTIBBL ti o i 11 
420 PRINT"IBEN | 
| 430 FRINTYIEBI | 


Il a u 5 En BuuEuEEEEE 
u rn 
! u 
| t It 1 
Io greR Id ! 
I | I | 
440 PRINT"ERMI || u u Ba Bu RM ) 
| 450 F=INT{RND (2) #14) +21 COLOR ,F,1:NEXTA i 
| 260 3 . | 
i 470 REM  TITELBILD NR. 2 MIT REKORDEN 
eo - ABO 3 
| 430 PRINT"Ü"SFORZZ=OTOA25: PRINT"R"SPRINTTAB (11) "er DREIKAMPF HR" 
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500 PRINT" DISZIPLINEN: REKORDE 1 8" | Sport 
S10O PRINT"1 - SO METER SPLRT - 3 SEKUNDENg" 
520 PRINT"Z - 50 METER HUERDEN - 6 SEKUNDENW" Spiel 
530 PRINT"S - WEITSPRUNG -  & METERE" 
540 FRINT"PUNKTEREKORD 85 PUNKTE - SWEN D.ae" | 
SS0 PRINT"COPYRIGHT (C) 1985 BY SWEN OTTMANN. " Sp Aannung 
 ; 
370 PRINTER SE Rt FRANNEXTZZ, 910 FORA=20T0301 FORB=OTO&ICOLORI ,7,2 
580 CLR3 X=01 J=11 POKEI1S44,0 720 CHAR1,A,B,"—":NEXTB,A 
590 POKE4S296 „PEEK (65298) ANDZS1 930 FORA=S0T038: FORB=OTO&: COLORI ‚8,2 
600 POKE65299 ‚PEEK (65299) ANDZOR48 740 CHARI ,A,B,"—"ENEXTB,A 
210 FORA=BS2TRB491 READDIı C=C+B 950 COLOR1,21CHAR1,13,22,"S0 METER LAUF" 
£20 POKEA,BıNEXTA 960 CHAR1,12,12,"AUF DIE PLAETZE" 
630 IFC< >21 1STHENPRINT"?DATA ERROR"LEND | 779 FORA=ÖTD10001 NEXTA 
240 SYSaSZı VOL 980 CHAR1,12,12," FERTIG u 
650 FORD=12B001012871: READE: POKED,E: NEXT 790 FORA=ÖTOIODONEXTA Ye 
660 DATA162,000,189,000,208,157,000,048 | 1510 FORA=ÖTD100, NEXTAL SOUNDS, 999,5 
670 DATA189,000,209,157,000,049,202,208 | 1020 CHARI 12,12." : 
&80 DATA241,0986 s 
E90 5 ’ 1030 TI$="000000" COLOR1,7,5 
700 REM AB HIER NEUE GRAFIKZEICHEN 2040 CHARI,X 18,01" 
on 1050 CHAR1,X,19, "-" 
| 720 DATRO60,066,165,129,129,153,066,060 1070 Chan’ x’ 
730 DATAO00 ,000,024,024,024,024,024,024 ‚ 
740 DATAO24,052,062,060,024,060,061,124 | 3080 IFJDY (1) =OTHEN1040 
770 DATAO&O,060,024,056,088,144,144,092 | 1110 IFX>S7THEN1170 
780 DATAO60,060,024,100,131,000,000,000 | 1120 GOTD1040 
770 DATAO&O ,060,056,025,008,000,000,000 | 1130 X=X+13CHAR1 ,X,18,° 1 
800 BATA255,000,255,000,255,000,255,000 | 1140 CHAR1,%,19,"-"1Y=X 
810 ı 1150 CHAR1,X-1,18," " 
820 REM 50 METER SPURT {3 SEKUNDEN) 1160 CHAR1,X-1,19," "sr X=Ys RETURN 
830 ı 1170 T$=TI$ı PRINT"G" 3 IFTS>"000008" 
| 640 FORA=0T0381 FORB=Z01T024 THEN1269 
850 CHAR1,A,B,"Q B"sNEXTB,A 1180 FORA=OTUSO 
840 COLORI,Z21CHAR1,38,19," 4" 1170 CHAR1,8B,5,"Q UALIFIZTIER Tr| 
870 FÜRA=0T0101 FORB=OT06:1 COLOR1,2,2 1200 CHAR1, 13, 10,"DEINE ZEIT IST" | 
880 CHAR1,A,B,"-":NEXTB,A 1210 CHAR1,17,12,T$ 
890 FORA=10T020: FORB=OT05:1 COLOR1,6,2 1220 CHR 16,14 , "SEKUNDEN" 
900 CHAR1,A,B,"-"1NEXTB,A 1230 FemINı <ND(2)#14)+2 


1259 


1260 FÜORA=0TOSO 


1270 


1280 CHAR1,7,10,"TUT MIR WIRKLICH LEID" 
1290 CHAR1,10,12,"ABER BEINE ZEIT HAT" 
1300 CHAR1,10,14,"DIE & SEKUNDENGRENZE" 
1310 CHAR1,11,16, "UEBERSCHRITTEN !!1" 
1320 F=INT (RND t2) #14) +2 
1330 H=INT{RND (1) #6) +11 CDLORI ,F,H 
| 1340 NEXTAı COLOR1 ,2Zı RUN 
| 1350 
1350 REM 50 METER HUERDEN t& SEKUNDEN) 
1370 ı 
1390 COLOR1,3,3: FORA=0T0381: FORB=20T024 
1390 CHAR1,A,B," W":NEXTB,A:COLORI1,2 


1400 


1410 FORA=0T010: FORB=0T04: COL.OR1,2,2 


30 
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1240 H=INTiRND I) HS)’ Hi: COLOR1,F,H 


NEXTA: COLORI „2: SCNELR: T=VAL TE) ı 51=100-T: G6OTD13BO 


EHAR1,5,5,"D I SWUALIFTIZIERT" 


1420 CHAR1,A,B,"-"ıNEXTB,A 

1430 FORA=10T0201 FORB=0T06: COLORI1 ,6,2 
1440 CHAR1,A,B,"—-"3NEXTB,A 

1450 FORA=20T030: FORB=0T06 1 COLOR1,7,2 
1460 CHAR1,A,B,"-"sNEXTB,A 

1470 FORA=30T038:ı FORB=0T0&: COLORI1,8,2 
1480 CHAR1,A,B,"-":NEXTB,ArCOLOR1,2 
1490 CHAR1,11,22,"50 METER HUERDEN" 
1500 CHAR1,12,12,"AUF DIE PLAETZE* 
1510 FORA=OTO10001NEXTA 

1520 CHAR1,12,12,* FERTIG " 
1530 FORA=ÖTO1000:4 NEXTA 


FORA=STO3SSTEF7:CHAR1,A,19,"#":NEXTA| 1540 CHAR1,„12,12," PENS !!ı " 


1550 FORA=OT0100: NEXTAr SOUNDS „999,5 
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15640 CHAR1,12,12," " 1780 CHAR1,X-1,19," "ıX=VY:ıRETURN 
1570 X=04 TI$="000000" 1 COLOR1, 7,5 1770 Y=X:CHAR1,X,18," " 

1580 CHAR1,X, 18,"1" 1780 CHAR1,X,197," "sXeY 

1590 CHAR1,X, 19," 1790 X=X+11CHAR1,X,16,"i® 

1500 ECHAR1,X,18,"-" 1805 CHAR ,X,17," "2 YmX 

1610 CHAR1,X,19,"-" 1810 CHAR1,X,16," " 

16820 IFJOYt1)=OTHEN1580 1820 CHAR1,X,17," "ıXaYy 


1630 IFJ=ZANDJOY 1)e3THENJ=11GOSUB1730 | 1830 XmX+1ıCHARI,X, 16," " 
1540 IFJ=1ANDJOY 1)=7THENJ=2: BOSUB173C0 | 1840 CHARL,X,17,"—"ıY=X 


1650 IFJOY(1)=131THENGOSUB1770 1850 CHARI1,X,16," " 

1450 IFX=STHENR=R+2 1869 EHAR1,%,17," "ıX=Y: RETURN 

1670 IFX=12THENR=R+2 1870 T3"TIS$ı PRINT" a IFTE>"000009" 

1680 IFX=19THENR=R+2 THEN1960 

1690 IFX=SZSTHENR=R+2 1890 FORA=OTOSO 
1700 IFX=33THENR=R+2 1890 CHAR1,8,5, "DB UALIFIZIERT" 
1710 IFX>35THENI1870 1900 CHAR1,13,10,"DEINE ZEIT IST" 
1720 BOTO1580 1910 CHAR1,17,12,T8 

1730 X=X+15CHAR1,X,18," 1" 1920 CHAR1,15,14 "SEKUNDEN" 

17409 CHARL,X,19,"—"ıV=X 1930 F=INT (RND (2)#14) +2 

1750 CHAR1,X-1,18," " 1749 H=INT(RND(1)3#6) +1: CDLOR1.F.H 


1950 NEXTAı COLOR1 „21 SENELR: T=VAL {T$) 1 82=B1-T-Rı GOTD20BO 

1960 FORAROTOSO 

1970 CHAR1,5,5,"DISQUALIFIZIERT" 20 EHARL YET EIER, n Xayı RETURN 
: 1980 CHAR1,7,10,"TUT MIR WIRKLICH LEID" Tiger BRUT 


1970 CHAR1,10,12,"ABER DEINE ZEIT HAT" 2350 T$=T1$: IFT#3"000007"THENZ&10 

2000 CHAR1,10,14,"DIE 9 SEKUNDENGRENZE" 2360 IFTE="CO0007FTHENEE=7 

2010 CHARi „11,16, "UEBERSCHRITTEN |!" 2370 IFT#=" 000006” THENBB=6 

2020 FeINT (RND (2) #14) +2 2380 IFTE=" 0000057 THENBS=S 

2030 H=INT (RND(1)#4) +11 CBLOR1,F,H 2370 IFT£S< 000008 THENBBAF 

2040 NEXTAıCOLORI .2ı RUN . 2400 WE=5S5-10ı FR=32+WJE ı CHAR1 q x 7 18, “. 

2050 ı 2410 CHAR1,X,19," "IFORBP=29TOFR 

2060 REM WEITSPRINBEN ! 2420 CHAR1,8P 17,71" 

2070 ı (BESCHAFFT?) - | 2430 CHAR1,8P,18,"|" 

2080 COLOR1,3,I1SCNCLRıFORA=OTOSS:FORB=207024 | 2440 CHAR1,SP,17," " 

2090 CHAR1,A,B,"id MN INEXTB,ArCOLORI „8,4 2450 CHAR1,8P,18," "ıNEXTSP 

2100 FORA=30T0361 CHAR1,A,20,"18 W"INEXTA 2460 CHAR „BP+1,19," | 

2110 FORA=OTU101 FORB=0TO6I COLOR1,2,2 2470 CHAR1,SP+1,20, "28 8" ı FORA=OT025001 NEXTA 
2120 CHAR1,A,B,"-"ıNEXTB,A 2480 SENELRı FORA=HTO10O 

2130 FORA=10T020: FORB=OTO&1 COLOR1 ,6,2 2490 CHAR1,B,3,'Q UAL IFI ZIERT" 

2140 CHAR1,A,B,"-"ıNEXTB,A 2500 CHAR1,11,6,"*#* WEITSPRUNG wen" 

2150 FÜRA=201030: FORB=OTD& 1 COLOR1,7,2 2510 IFSS=7THENCHAR1 ,15,8,"-3 METER-" 

2140 CHAR1,A,B,"—"ıNEXTB,A 2520 IFSS=6THENCHAR1,15,9,'"-4 METER-" 

2170 FORA=30T038: FORB=OTD&: COLOR1 ,8,2 2530 IFBS=STHENCHAR1 ,15,8,"-5 METER-" 

2180 CHAR1,A,B,"-"sNEXTB,A 2540 IFSS=<C3THENCHARI,15,8,"-4 METER-" 

2190 COLOR1 ‚24 CHAR1 ,15,22, "WEITSPRUNG" 2350 EHAR1,12,10,"a## DU HAST ma" 

2200 BOUND1 „0,301 FORA=OTOSOO3 NEXTA 2550 5382-551 8IF=8TR#6 (93) sCHAR,18,12,53# 4 
2210 TI$="060000" 1 XmOrCDLOR1 57,5 2570 CHAR1,6,14,"PUNKTE IM DREIKAMPF EREICHT" | 
2220 CHAR1,K,18," 1" 25850 F=INT (RNDt2)#4143+2 j 
2230 CHAR1,X,19,"—" - 2390 H=INTIRND {LI SS) +13 CDLORI FF, H 

2240 CHAR1,X,18,%—" . 26090 NEXTAIEBLORI „241 5CNCLRI RUN ; 
2280 CHAR „KA, nu 2&10 SCENCLRAFORAMOTOLOO j 
2260 IFJOYILIROTHENZ222O 2620 CHARL,S,5,°D 1 BSQUALIFIZIERT"| 
2270 IFJ=2ANDJOY (1) =STHENd=13 BOSUB2310 2630 CHAR1,7,30, "TUT MIR WIRKLICH LEID" 

2280 IFJ=1ANDJOV (1) =7THENJeZı GOSUBZ310 2640 CHARS ‚8,12, "ABER DIE GESCHWINDIGKEIT“ 
2290 IFX>ZOTHEN2ISO 2650 CHAR1,11,14,"WAR DEIN SCHICKSAL" 

2310 Xe=k-+1 ıCHAR1 ‚%,18," |" 2470 COLORI „F ‚Hı NEXTA: COLOR „2: SECNELR 

2320 CHAR1,%,19,"-"1Y=X 2660 RUN 
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.  Programm-Angebote des Jahrgangs 


Alle veröffentlichten Programme 
aus der Zeitschrift „Compute mit“ 
Jahrgang '85 können auch weiter- 
hin noch auf Kassette bzw. Dis- 
kette nachbestellt werden. Jeder 
der noch nicht eine vollständige 
Programm-Sammlung hat, Kann 
diese also durch Nachbestellung 
ergänzen. 


Die notwendigen Angaben ent- 
nehmen Sie bitte der Bestelliste. 
Die angegebenen Bestellnum- 
| mern gelten jeweils für eine Heft- 
| Ausgabe. Beachten Sie bitte auch 
die Angaben zu den Bestell- und 
Lieferbedingungen. 


Heft 5/85 

Commodore 

Bestell-Nr. COM C 1/1 16,- DM 
Bestell-Nr. COM B 1/1 2B,- DM 
Schneider 

Bestell-Nr. COM $ 1/1 16,- DM 
Heft 7/85 

Commodore 

Bestell-Nr. COM CK 3/1 16,- DM 
Bestell-Nr. COM CD 3/1 20,- DM 
Schneider 

Bestell-Nr. COM SK 3/1 16,- BM 
Bestell-Nr. COM SD 3/1 39,- DM 
Heft 9/85 

Commodore 

Bestell-Nr. COM CK 5/1 16,- EM 
Bestell-Nr. COM CD 5/1 20,- DM 
Schneider 

Bestell-Nr. COM SK 5/1 15,- BM 
Bestell-Nr. COM SD 5/1 39,- DM 
Hefi 11/85 

Commodore 

Bestell-Nr. GOM CK 7/1 16,- DM 
Bestell-Nr. COM CB 7/1 20,- DM 
Schneider 

Bestell-Nr. COM SK 7/1 16,- DM 
Bestell-Nr. COM SD 7/1 39,- DM 


Unser Software-Service ist in der Lage, Spiel- und Anwendungsprogramme 
für alle Commodere- und Schneidersysteme innerhalb 


nur 1 Woche zu liefern. 


Alle Bestellungen werden sofort bearbei- 
tet, so daß keine unnötigen Wartezeiten 
entstehen. Außerdem wird eine „Ladega- 
rantie“ übernommen. Das bedeutet, Sie 
können fehlerhafte oder unladbare Pro- 
gramme zum Umtausch an uns zurück- 
senden. 

In unserer Bestelliste finden Sie Software 
für alle Anwendungsgebiete. Schauen Sie 
einmal unverbindlich auf unser Angebot. 
Vielleicht können wir auch Sie von unse- 
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ren hervorragenden Angeboten überzeu- 
gen, und Sie senden uns den ausgefüllten 
Bestellcoupon ein oder greifen einfach 
zum Telefon und bestellen telefonisch un- 
ter den Nummern: 


05651/40643 
oder 40693 


Sompupe mib 


Heft 6/85 


Commodore 
Bestell-Nr. COM G 2/1 
Besteli-Nr. COM D 2/1 


Schneider 
Bestell-Nr. COM S 2/1 


Heft 8/85 


Commodore 
Bestell-Nr. CCM CK 4/1 
Bestell-Nr. COM CD 4/1 


Schneider 
Bestell-Nr. COM SK 4/1 
Besteil-Nr. COM SD 4/1 


Heft 10/85 


Commodore 
Bestell-Nr. COM CK 6/1 
Bestell-Nr. COM CD 6/1 


Schneider 
Bestell-Nr. COM SK 6/1 
Bestell-Nr. GDM SD 6/1 


Heit 12/85 


Commodore 
Bestell-Nr. COM CK 8/1 
Bestell-Nr. COM CD 8/1 
Schneider 

Bestell-Nr. COM SK 8/1 
Besiell-Nr. COM SD 8/1 





85 


16,- DM 
20,- DM 


16,- DM 


16,- DM 
20,- DM 


16,- DM 
39,- DM 
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Hett 1/86 Aus diesem Heft: 

















Commodore Gommadore bote Ta System. aus 

Bestell-Nr. COM CK 1/2 16,- DM | Bestell-Nr. COM CK 2/2 EEE dem. Tronic-Verlag ent- 

Bestell-Nr, COMCD 1/2 20,- DM Bostell-Nn com CD 2/2 20, DM | Km EEEr AN 

chneider chneider | nachfol enden Bestell- 

Bestell-Nr. COM SK 1/2 16,- DM | Bestell-Nr. COM SK 2/2 16,- DM liste. < 2: 

Bestell-Nr. COM SD 1/2 39,- DM | Bestell-Nr. COM SD 2/2 39,- DM " 

Programm Preis/ Preis/ Bestell-Nr. | Programm Preis/ Preis/ Bestell-Nr. 

Kassette Diskette Kassette Diskette 
Garien/Schloß Gruselstein 14,-- DM 19,58 DM „9 
Fressman/BDutlaw 14,-- DM 19,50 OM v1 
Prost/Buffalo Bill 14,-- DM 19,59 DM vızı 
Joy Man/Powerpack 14,-- DM 19,50 DM v22 
, - Ner rasende Malocher/ 

Rulti-Key/S-Tool 64/ ° Frankie goes to Pharao 14,—- DM 19,50 DM 32 

Interrupt-Programme 16,-- DM 21,-- DM UE 2/85 Matron/Ohst t4,-- DM 19,50 DM va 

Soritehilfe/Diskloader/ Race On/Gagy 14,-- DM 19,50 DM v52 

Directory 21,-- DM - VE 3.1/B5 Rürburg 3D/Düsi 14,-- DM 19,50 DM v52 

Tape-Direstory/Asmon/ Breaker/Expulsion 14,-- DM 19,50 DM v2 

Data-Generator 15,-- DM 21,-- DM EG 3.2/85 Brückenbau/dango £6,-- DM 21,50 DM v13 

Fast Load 10,-- DM LG 4/84 Zykio/Geldsammler 11,50 DM - KG/V-t 

Diskmonitor/Zeichensatz 20,--BM bE 5/85 Star-Wars/Punktefresser +4,50 DM - HE/Y-2 

Neassembler/Maskengenerator 15,-- DM 20,-- DM UG 6/95 Catch the Fish/Mister Jump 14,50 DM - HC/V-3 

Del 64/Treiberprogramm Ghost's Eygs/Fex Hunt 34,50 DM - HE/V-4 

für 1526/MPS 802 Becelevator 14,-- DM 19,-- DM UC 7/85 Colfector/Break Dut 14,50 DM - KC/AN-5 

Supertanetirestory/Renew/ U-Bert/Salvage Crew 16,50 DM - KE/V-6 

Kantrollabfrage 19,-- DM - UC 8/85 Dog Fight/Schwitzbad 16,50 DM - HE/V-1-4 

Video-Utlities, Sprites/Space-Battie 13,-- DM 19,-- DM UV 2/85 

MuHi-Basic w3, Bildeditor _ 17,-- DM 23,-- IM UC 9/85 Erafik-Painter 10,-- DM - - UV 5/85 

Better Basic/Autonumber/ NIC-Clock g,-- DM r BY 6/85 

Hardcony/Terminalprogramm 17,-- DM 23,-- DM UE 10/85 Decelerator 9,-- DM _ UN 7/85 

Speicher-Oszillaskup/ Joypaint 12,-- DM = WE/B5 . 

Makro-Assembler/Ghange Type 49,-- DM 54,-- DM LE 1/86 Disassembler, Did-Programme 1D,-- DM - 9/85 

Reactor/Concentration/Batenbank 17,50 DM 23,58 DM HE/G-1 Directory/Farb-JAQ 10,-- DM - UV 10/85 

Warlords/Laverns of Beath 14,50 DM 19,50 DM HE/C-2 

Alien-Destroyer/Duell 24,50 DM 29,50 DM KE/G-3 

Ocean Game/Tennis 17,50 DM 23,50 DM RBC/C-4 

The Gzves 17,50 DM 23,50 DM HG/G-5 

Bardener =, 17,50 DM 23,50 DM RE/G-E 

Ufo/Skatehvard Sa j 24,50 DM 29.50 BM RG/C-1-4 

Mauern/Widersiand B--DM . 15,-- DM 64 

$Space-Gomets/Erdspalte/ 

Sprite-Data 15,-- DM 23,50 DM E51 

Autostart/Bestellschein/ 

Ruadpainter 16,50 DM 23,50 BM E61 

Hardeopy/Space-Fighier/ 

Data-Generater 15,50 DM 19,50 DM &71 

Ranster-Attack/Blnck- 

Painter/Epson-Drucker 16,50 DM 23,50 DM £9 Autarennen 1, DM - US 3/85 

Projekt/Datenhank 16,-- DM 23,50 DM 29 Universal-Datei Vi 9,-- DM - US 4/85 

$piders/The Basic 16,50 DM 23,50 DM . gıor Computersehrift/Symbol-Swap 16,-——- DM - US 5/85 

High Noon/Skeet/ “ Arynoarı Tooikit/Farbdecodierung 1 n - 15 in 

Grafik-Besigner 17,50 DM 23,50 DM e 121 adın 2 - . 

Painter/Star-Baddle/Editor 17,50 DM 23,50 DM 622 painter/Box-Befehl t4,-- DM 24,-- DM US 1/85 

Wüstenralty/Jet-Pac/ B Maschinensprache-Monitor/ 

Black Moore Castle 17,50 DM 23,50 DM 632 DiskHite 15, BM 25,-- DM U5 8/85 

Brieftaube/Cadelan 19,50 DM 24,50 DM 642 Basic, Maschiner-Kit t2,-- DM 22,-- DM us 9/05 

Ritter Erik/Grand Prix Spritehilfe 19,50 DM 24,50 DM € 52 Backup/Directary/ 

Firebird/High Music 24,50 DM 29,50 0M 662 Ellinse/Disk . . - 27.-- DM us 10/85 

Moonsweeper/Scatti 24,50 DM 29,50 DM E72 Data-Generator/Grafik Toolkit/ 

Tran/Mercurious 24,50 DM 26,50 3M g13 ASCH List (Turbo Pascal] 15,-- DM 23,-- DM US 1/86 
Fallschirmspringer 9,-- DM - HEG/SR-3 
Geisterschloß 9,-- DM - RE/SR-4 
Zeichendesigner 12,50 IM - HE/SR-5 
Mini Gar Raee/Interceptor 3 D 17,58 DM 26,50 DM HE/SR-6 
Secret Agent 12,58 24,50 HG/SR-1-4 
Super-Miner t4,-- DM 24,-- DM sa az 
CPG-Bert t4,-- DM 24,-- DM Sn 52 

Besteilschein/Rlücky 8,50 DM 15,- DM v6 Conan's Castle 15,50 DM 25,50 DM sA 62 

Multigraph/All Rammer 11,-- DM 15,50 DM vn Snider's Mage 16,58 26,50 DM sn 72 

Zyklo/Meteorit 11,-- DM 19,50 DA VB schneider Panik/ Killership 18,58 DM 26,50 DM saıa 
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Feindliche Invasoren sind in der Sahara gelandet. Um zu den wichtigsten Hauptstädten der Er- 
de zu gelangen, haben sie einen langen Tunnel unter dem Atlantik bis nach Amerika gegraben. 
Durch einen Zufall ist der Tunnelausgang entdeckt worden und man hat Sie hineingeschickt, 
um die feindlichen Invasoren im Tunnel zu vernichten. 

Aber Achtung: Ihre Gegner schießen scharf und der Tunnel ist durch Minen und Mauern gesi- 


cherl. Versuchen Sie möglichst viele Ihrer Gegner zu erledigen, bevor diese Sie erwischen. 





Das Programm ist völlig in Maschinen- 
sprache geschrieben und belegt 3 K des 


Eingabe und Start des DATA-Programms: 


Ist das Programm fertig im Speicher, wird 
der Monitor mit STOP/RESTORE verlas- 


\ POKE 44,16:NEW 
vorhandenen Speichers. Darum ist es un- 10 SYs 4324 sen. 
möglich, das Programm in DATAzeilen POKE 46.18:POKE 45.0:CLR Danach NEW und 10 SYS 6656, sowie PO- 


einzugeben. 

Um das Programm dennoch abtippen zu 
können, habe ich einen kleinen Monitor 
geschrieben, der lediglich 384 Bytes be- 
iegt und so zusätzlich zum Programm in 
den Speicher paßt. 

Der Monitor ist in DATAzeilen abgelegt, 
Um ihn in den Speicher zu bringen sind 
folgende Operationen notwendig: 


Abspeichern des Monitors: 


MitM aaaa kann der Speicherinhaltan der 
Stelle aaaa ausgegeben werden, mit M 

aaaa bbbb der Speicherbereich vor aaaa 

bis bbbb. 

Jede Zeile besteht aus vier Datenbytes 

und einem Kontrollbyte. Passen Datenby- 


KE 46,29:POKE 45,240:CLR eingeben 
und das Programm abspeichern. 

Auf der Kassette befindet sich das fertige 
Programm. Der fertige Monitor und der 
Monitor in DATAzeilen sind ebenfalls ge- 
speichert. 


Zum Ausdruck des HEXDUMPS: | 
DEFENDER laden, Monitor laden 





NEW tes und Kontrollbyte nicht zusammen, | OPEN 4,4:CMD4 eingeben, sowie 

POKE 44,18:POKE 4608,0:NEW wird die Zeile nicht angenommen, RUN und M 1200 1DFF eintippen. 
/.1200 53 00 00 00 53 | 7.1274 C9 0& 50 oz 7D | /.12EB EA EA EA EA 00 | ?.135C AZ 15 A0 15 02 
/,1204 00 00 00 44 44 | 1.1278 A? 20 BB 91 90 | 7.iZEC EA EA En EA 00 | 7.1340 A9F 01 85 00'2D 
/.1208 00 00 00 00 00 | 7.127C 01 CB Bi 0% 78 | 7/.12F0 EA EA EA EA 00 | 7.1364 ES 01 Bo 04 Si 
/.120C 00 00 AD 70 BD | 7.1250 88 71 03 E& FC | /.12F4 EA ER EA EA 00 | 7/-13658 A7 09 Do 14 83 
/.i210 91 48 A9 FF BF | 7.1284 01 E& 035 DO 34 | /.12FB EA ER EA EA 00 | /.136C DO 04 a5 03 72 
7.1214 BD 22 91 58 56 | /.128B8 E7 E& 02 Es ES | 7.12FC EA EA En EA 00 | 7.1370 DO 0E AR 20 57 
/.1218 OA 2A 29 01 08 | 7.1286 04 CA DO Eo FE | 7.1300 E& F7 20 &0 51 | 7.1774 E& 02 Do 04 372 
Y„iZ1C OD FF IF 80 8D | 1.1290 ER AF IF 85 08 | 7.1304 17 45 F7 18 58 | 7.1378 85 04 DO 04 75 
7.1220 48 A9 OF 85 &B | 7.1294 D2 AP 97 85 49 | 7.1208 89 15 AA ED #8 | 7.i87C 90 02 09 os 2 
/.1224 DZ BA 85 DI 00 | 7.1298 F4 AF EA 85 Sc | 7.1300 00 1B 48 27 Ta | 7.1380 20 AO 17 Ca 5B 
/.122B8 GR 18 85 Di Ab | #.129C Di 05 FZ 60 07 | 7.1310 OF 85 01 &B E32 | ?.1384 10 DE &0 En 24 
/.322C 85 Di 8A oA Da | 7.12A0 PH1 Di AS 00 ES | f.1314 Aa Aa Ah aa 00 | 7.1388 ER EA Eis EA 00 
7.1230 0A OA 18 85 7D | /.12A4 91 F3 AS Di 16 | 7.1318 85 02 OR BD Fo | 7.1386 EA EA EA EA 00 
/.1254 DI B5 Di 06 83 | f. 12A8 38 E97 16 85 42 | 7,131C 00 IB 48 29 74 | 7.1390 AP 09 BS E7 D2 
/.1238 D1 26 D2 ABS 80 | #/.12AC D1 85 FZ BG 17 | 7.1320 OF 85 05 &8 Ei ! 7.1394 37 16 85 F8 Co 
/.123C Di 85 FS AS 02 | /.12E0 04 C& DZ Ca DE | 7.1324 4A an sa 4m 00 | 7.1398 20 00 1% Ca PS 
/.1240 D2 18 57 78 DE | /.12B4 F4 &0 EA EA 94 | /. 1328 85 04 49 15 30 | /-13°C FE Do Fo a9 79 
/.1234 E85 F4 68 60 75 | /.12BE EA EA EA EA 00 | 7.1320 38 ES 02 85 56 | 7. 13A0 0A 85 FB #9 DE 
/.1248 20 20 12 Bi AS | /.12BC EA EA EA EA 00 | 7.1330 02 A 15 38 88 | f-13A4 01 85 F9 99 D4 
/.124C Di 50 EA ER Bi | /.12C0 20 00 12 as 7a | 7.1334 ES 0a 85 04 40 | /-IIAB 00 85 FA AP D6 
/.1256 20 20 12 91 8% | /.12C4 29 07 43 09 80 | 7.1338 AZ OB AS 01 on | 7.1SAC OF ED GE 90 ıc 
/.1252 DI AS 00 91 ES | /.12CR FO 02 A9 FO nB | /.133C 05.03 Fo 08 SE | #.13B0 A9 00 85 FR D7 
/.1258 F3 &0 EA EA 93 | 7.12CC 8D OD 90 48 78 | 7.1340 90 03 CA Do 935 | 7.1364 85 Ft 99 01 Di 
/.125C0 EA EA EA ER 00 | /.1200 &0 EA EA ER BA | 7.1344 03 E& 01 EB 06 | /.13B8 BD 14 15 8D 0: 
/.1260 AF IE 85 02 30 | /.12D4 ER EN EA EA 00 | 1.1348 BA 03 A2 07 za | /.13BC SF 15 80 EA CO 
7.1264 A9 16 BS 01 3 /.12DB EA ER EA EA 00 | 7.1340 AS 02 C5 04 66 | /-13C0 EA EA ER EA 00 
1.1268 85 03 49 96 89 | /.12DE EA EA ER EA 00 | /.1350 FO OB Bo 03 AB | /.13C4 EA EA EA EA 00 
/.126C 85 04 AZ 02 21 | 7/.1?E0 ER EA EA EA 00 | /.1354 CA DO 03 Es Fi | /.13C8 EA EA EA EA 00 
7.1270 AO 01 Bi 01 11 | /.12E4 Ea EA EA EA 00 | /. 1358 CA 02 B& 04 46 | 7.13CC EA EA Ea EA 00 
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#.13D0 
/.13D4 
/.13D8 
/. 13DC 
/.13E0 
/.1SEL 
/.13E8 
/.13EC 
/.13F0 


/.13F4 


/.13F8 
J/.13FC 
7,1400 
7.1404 
f/.1408 
/.140C 
/.1416 
/.1414 
7.1418 
/.141C 
/.14320 
/.1424 
/.1428 
/.142E 
/.1430 
7.1434 
7.1438 
/. 1430 
7.1440 
7.1444 
7.1448 
/.144C 
7.1450 
7.1454 
/.1458 
/.145C 
7.1480 
7.1464 
/.1468 
/.1985 
f.1470 
7.1474 
/.1478 
/,147C 
/.1480 
7.1484 
/. 1488 
7.1480 
/. 1490 
7.1494 
/.1498 
/.I39C 
f/.14A0 
/.14A4 
7.148 
/. 14AC 
/.14E0 
/. 1464 
/.14R8 
/.14BC 
- 1460 
/. 1404 
/. 1468 
 /.14CC 
/. 1400 
. f„14D4 
/.12D8 
/.130C 
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EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
ER 
EA 
8D 
09 
FF 
A9 
A2 
20 
AO 
07 
10 
67 
c8 
FS 
Di 

20 
35 
13 
Fo 
FB 
FF 


VE 
85 
AO 
77 
20 
EA 
EA 
ER 
ER 
EA 
ER 
EA 
15 
OD 
a4 
12 
FS3 
EO 
1 

29 
AS 
FO 
VE 
n7 
279 
11 


"Do 


ra 
93 
370 
14 
EA 
EA 
EA 
EA 
EA 


EA 00 
EA 00 
ER 00 
EA 00 
EA 00 
EA 00 
EA 00 
ER 00 
En 00 


EA 00 
EA 00 
OF 23 
85 B5 
8D 2C 
07 3B 
00 27 
20 BS 
91 BA 
91 EE 
FB 90 
16 FF 
co 48 
A9 88 
ca B8 
FF E3 
Fe c2 
Ca F5 
A9 78 
A? DE 
AT Da 
AF D& 
99 ic 
FB D7 
03 Da 
11 38 
FB BE 
ER BA 


EA 00 
EA 00 


EA 00 
EA 00 
A? GC 
90 90 
F?7 O3 
A? BB 
Az ci 
21 50 
b1ı F2 
07 29 
AZ 2D 
FA 24 
Sa BB 
00 SE 
AO BO 
1E B2 
04 BD 
60 TE 
11 51 
15 BD 
EA 32 
EA 00 
EA 00 
ER GO 
EA 00 
ER 00 


F.14E0 
S[.14E4 
/.14E8 
/.14EEC 
#.14F0 
/.14r4 
/.14F6 
JS. LAFC 
„1500 
/.1504 
/. 1508 
„1506 
7.1510 
7.1514 
/.1518 
/.151C 
7.1529 
/.1324 
7.1528 
/„1S2ZE 
/.1530 
/.1534 
/.1538 
#.153C 
7.1540 
7.1544 
7.1548 
7.1540 
7.1550 
7,1554 
/.1558 
/.155C 
/.1550 
7.1564 
7.1568 
/.136C 
/.1570 
7.1574 
/.1978 
/.157C 
f.1580 
/.1584 
7.1588 
?/.158C 
/,. 1570 
7.1594 
/.1598 
/.159C 
/.15A9 
7.154 
/.15AB 
/.1SAC 
f/.15B0 
/.15B4 
/.15EB 
#/.1SBC 
/.15C0 
7.1504 
/.15C8 
/.3SCE 
/.„15DO 
/.15D04 
/.15D8 
/.iSDE 
/.15E0 
/.15E4 
7.1589 
/.15EC 


EA 
EA 
ER 
EA 
EA 
EA 
EA 
EA 
00 
Aa 
12 
o1 
9 
91 
12 
c8 
ca 
EB 
88 
01 
DO 
ol 
20 
o1 
F? 
o4 
02 
FA 
FF 


60 
Di 
F3 
23 
20 
77 
88 


79 
05 
AD 


Fa 
20 
20 
oD 
04 
00 
30 
3F 
01 
04 
48 
Fo 
F& 
Di 
FS 
12 
Fo 
EA 
EA 
EA 
EA 
EA 
FB 
59 
00 
11 


ER EA 006 ! /.15F0 ıl 
EA EA 00! /.15F4 SD 
EA EA 00 : /.15F8 Co 
EA EA 00 | /.15FC 11 
ER EA 00 | 7.1500 AF 
EA EA 00 | /. 1604 90 
EA EA 00 | /. 1508 0D 
EA EA 00 | /.180C0C 6A 
13 Ab 95 | 7.1610 85 
FF 20 85 | /.1612 Ad 
C7 206 B3 | /.1618B 12 
oO AS 34 | /.isic O1 
Di AY 13| /.1687Z0 BO 
F3 20 43 | 7.1624 09 
ah BO 28 | /. 1628 DO 
aA Bo 33| /.162C 85 
4A Bo 1 || 7.1530 84 
4A BO 13 | /-16434 98 
Co FF B& | /- 1638 AB 
ca Co D9 | f-1&3C 15 
oı BB 4F | /.1540 &D 
54 F? pa | /- 16844 05 
91 D1 C97| 7.1448 91 
AS FA FA| 7.1840 91 
FO 08 C5 | 7.1650 ES 
A? 00 3D | 7.1654 90 
AF 01 5A | 7.1658 A4 
85 FB 01 | 7.1850 ES 
20 48 15 | 7.1440 03 
20 FO.OB|j 7.1664 20 
AS Fr 3E | /. 1568 Fi 
AP O1 EB! /.168C OC 
20 CO 82 1 7.1470 90 
10 DO FB! 7.1674 0D 
00 1& 20 | 7.1578 DO 
15 A2 EC | 7.1676 91 
DO FD BS | 7.1580 1& 
FA AD AD | 7.1484 F5 
27 95 BE | 7.1688 04 
ac 9F 20 | 7.1880 EF 
ze 91 01 | 7.168970 AB 
c7 1& EI | 7.1694 AB 
AA AO SE | 7.153978 88 
43 12 4F | 7.168906 FB 
DO EA DE | 7.16A0 30 
91 Bb1 E4| 7.18A# il 
9 FSCF| 7.16A8 Fö 
17 AD F& | 7.16AC 65 
47 FF 22 | £.16R0 BD 
Do Fa 32 | 7.1684 10 
AO 15 16 | 7.1568 EF 
85 00 28 | 7.16BC 70 
12 C9 B3 | /.15C0 20 
03 E39 3B | /.15C4 F8 
AF 11 9E | 7.i68CH 20 
A7 04 ED! /.idCl 20 
E@ 20 An | /.1600 EA 
C? 20 B3 ! 7.1604 EA 
4C 00 SC ! /.1&D8 EA 
EA EA FD: /.1&DC EA 
EA ER 006 ! 7.1560 AZ 
EA EA 00 /.16E4 IE 
ER EA 00 ! /.1&8E8 C9 
EA EA 00 /.16EC 40 
A4 FB &2 | /.16F0 04 
oo 11 42 /.1&6F4 ED 
11 89 35 | 7.15FE EA 
95 40 BC /.1&rFrC EA 


Gompuphe mib 


Programme 


B7 
Eco 
&0 
oc 
8D 
FA 
O1 
Fa 


20. 


ES 
is 
Di 

Fi 

00 
30 
FF 
01 

FO 
91 

23 
o2 
07 
970 
oc 
DA 
sg 
c4 
AF 
DO 
8 
OD 
CI 
50 
20 
Eö 
FO 
DO 
DO 
VE 
17 
1& 
Ad 
ER 
40 
DO 
ı1 

Er 
27 
AF 
ı1 

50 
Ad 
98 
A? 
560 
ER 
Ef 
EA 
EA 
04 


‚IE 


01 
ID 
10 
EA 
EA 
EA 


37 
bs 
sc 
2F 
F7 
4A 
Cc2 
DA 
DA 
sD 
537 
/F 
DS 
E8 
7B 
15 
DA 
44 
FF 
1 
DO 
70 
EE 
ER 
EB 
50 
FD 
B8 
Sc 
BO 
DS 
10 
FE 
DE 
SE 
EC 
3D 
FD 
6F 
30 
Eb6 
7E 
04 
D4 
EG 
07 
DA 
02 
85 
40 
C3 
EC 
73 
D7? 
BB 
00 
oo 
oo 
oo 
00 
Sc 
BF 
02 
64 
cq 
8D 
00 
[8167 


/.1700 
4.1704 
+.1708 
4.1700 
7.1710 
7.1714 
/.1718 
/.171C 
1.1720 
1.1724 
/.1728 
1.172C 
1.1730 
1.1734 
1.1738 
/.173C 
1.1740 
7.1744 
7.1748 
/.17AC 
7.1759 
/.1754 
/.1758 
+.175C 
1.1760 
/.1764 
7.1768 
/.176C 
1.1770 
1.1774 
/.1778 
4.177C 
4.1780 
1.1784 
4.1788 
1.178C 
1.1790 
7.1794 
1.1798 


7.175C 
/.17RO 
F«17A8 
/.17AB 
/{.17PREC 
/.17B0 
/.17B4 
/.17B8 
/.17BC 
4/.17C0 
/.17C4 
f.17C8 
/„.17ECC 
/.17D5 
/.17D4 
/.17D8 
/.17DC 
/.17EO 
/.17E4 
7.17E8 
/.17EE 
/.17F0 
’/.17F4 
/.17F8 
FI. 1FFC 
7.1800 
/.1804 
/.18908 
/.1B0C 


Fi 
al 
DE 
05 
FO 
F3 
83 
As 
BD 
07 
85 
11 
65 
85 
1i 
co 
EA 
2 
AS 
FO 
2! 
A535 
C& 
20 
30 
27 
Aa 
[21-1 
&S 
OE 
63 
04 
02 
65 
29 
E& 
A4 
12 
=F 
01 
23 
A& 
A& 
ıi 
67 
11 
895 
11 
&3 
&2 
AS 
AS 
A& 
9D 
63 
AC 
o1 
00 
B2 
00 
o1 
o1 
4A 
3E 
AD 
or 
00 
FD 


FB 
00 
40 
20 
F2Z 
EA 
64 
64 
00 
18 
[71 
29 
RD 
&2 
85 
11 
Ad 
20 
63 
CO 
Di 
653 
62 
Eö 
E83 
40 
63 
95 
29 
AS 
FO 
Eö 
Ca 
aa 
04 
oo 
&2 
CI? 
C?7 


60 
08 
54 
64 
47 
01 
BD 
62 
85 
EA 
20 
61 
oo 
64 
40 
9D 
1A 
05 
14 
DF 
21 
or 
4A 
AD 
SE 
18 
FO 
17 
29 


bo 
18 
1t 
EU 
CA 
AS 
C6 
36 
11 
67 
ED 
F& 
40 
BD 
63 
85 
653 
=0 
29 
Aa 
Ad 
10 
10 
15 
AS 
FO 


053 
CA 
10 
15 
10 
FB 
54 
E4a 
=9 
OE 
00 
85 
il 
ao 
BD 
64 
a4 
12 
EO 
20 
64 
oA 
06 
18 
53 
07 
65 
AS 
FO 
C5 
270 
10 
AS 
EA 
00 
63 
4B 
Fü 
BO 


65 
04 
n4 
EG 
1B 
2oO 
11 
BO 
Ad 
a4 
12 
Di 
F3 
62 
As 
11 
EA 
00 
64 
AF 
CB 
o1 
4A 
AD 
Sr 
27 
ac 
04 
Er 


BE 
9E 
SF 
DO 
pe 
47 
43 
16 
85 
78 
57 
45 
897 
DA 
aA 
32 
BB 
70 
07 
55 
82 
DA 
BZ 
Co 
ES 
gE 
BR 
23 
Sc 
7 


OB. 


71 
02 
8F 
Ag 
253 
AE 
OB 
54 


ri 
FS 
[= 1-2 
BF 
BF 
35 
FD 
DA 
51 
67 
79 
84 
E7 
05 
47 
&F 
AB 
OE 
42 
FC 
OB 
00 
=} 
E7 
61 
OD 
BO 
BO 


ör 


35 


36 


Programme 


/.31Bi10 
/.1814 
/.1818 
/.IBAMT 
/.1820 
/.1824 
/.1828 
/.182C 
/.18930 
/.1534 
7.1838 
J.383C 
/.1B40 
7.1844 
7.1948 
7.1840 
7.3850 
/.1954 
1.1858 
1855 
/.1860 
/.1864 
/.18568 
/.1Bät 
7.1870 
7.1874 
7/1878 
F/.187C 
/„.18B0 
/.19984 
7.1868 
/.188C 
/.1870 
/.1874 
7.1898 
/.189C 
/„18A0 
7.1894 
/.18A8 
„ABA 
/.1869 
/.18B4 
/.18BB 
/.18BE 
/.18C0 
/.18C04 
/.18C8 
/.18CE 
/.i18D0 
/.18D4 
/.1BD8 
/.18DE 
/.1BEO 
/.18E4 
/.18E8 
/.18EC 
7/.18F0 
/,109r4 
/.iBFB 
/.18FC 
7.1709 
/.1904 
/.1908 
/. 1900 
/.1710 
7.1714 
/.19718 
3910 


1& 

AO 
12 
EA 
EO 
FD 
9D 
14 
AB 
GD 
FF 
E& 
11 

59 
00 
ER 
59 
40 
g0 
20 
FS3 
AF 
9D 
a0 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
er 
EA 
EA 
EA 
EA 
ER 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
Ef 
ER 
EA 
ER 
EA 
EA 
4 
co 
AD 
07 
BO 
1i 

st 
94 


BO 
15 
C7 
an 
SF 
80 
40 
Fi 
BF 
00 
9D 
FB 
27 
OE 
11 


Fa 
20 
20 
Ab 
BO 
11 

11 

27 
FO 
11 

Co 
ED 
07 
48 
aa 
04 
4B 
Ag 
AR 
58 
gi 

Ad 
ıi 

EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
ER 
EA 
EA 
EA 
EA 
EA 
ER 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
ER 
EA 
FO 


"Ro 


a 
E4 
ED 
co 
g0 
11 


AA 
48 
DO 
FB 
ES 
FB 
AD 
Or 
17 
A? 
11 

00 
18 
BD 
4R 
18 
EBD 
ED 
209 
91 

Dit 

FB 
AC 
EA 


ER 


EA 
EA 
EA 
EA 
EA 
ER 
EA 
EA 
EA 
en 
EA 
EA 
EA 
EA 
ER 
EA 
EA 
EA 
EA 
ER 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
Ef 
ER 
EA 
si 
40 
23 
FB 
oo 
FO 
1 
85 


Fra 
DD 
2B 
3D 
ec 
94 
&1 
AS 
F& 
25 
B3 
AO 
27 
92 
11 
DF 
9D 
44 
18 
CB 
DB 
74 
80 
17 
00 
00 
00 
00 
co 
00 
00 
oo 
00 
00 
06 
00 
00 
00 
00 
00 
00 
00 
00 
00 
oo 
00 
00 
oo 
00 
00 
00 
00 
[ele) 
00 
00 
00 
00 
00 
00 
00 
FE 
03 
31 
52 
4E 
EB 
10 
8D 


7.1920 
/.1924 
7.1728 
/.192C 
7.1730 
7.197234 
!.3938 
Z/.1F3C 
7.1740 
/.1944 
7.1748 
/.194C 
f. 1950 
7.1954 
/.1958 
7.1950 
1.397859 


7.1963 
/.1968 
/. 1960 
4.1970 
71.1774 
7.1978 
/.197C 
/.19780 
!.1984 
1.1988 
/. 1986 
1.1990 
7.1974 
1.1998 
7.1996 
/. 140 
1.1904 
/.19AB 
+.1980 
/.1980 
/.19B4 
/.17B8 
/.19BC 
/.19C0 
1.1904 
/.19CB 
+. 19CC 
/.19D0 
7.1904 
/.19D8 
/.19DC 


S.1FEO 


/.19E4 
/.197E8 
/.19EC 
f:19F0 
/.19F4 
/.19F8 
f„19FC 
7. 1A00 
7.1904 
/.1A08 
/.1ASC 
/.1A10 
/.1A14 
/.1A18 
/.1AIC 
/.1A20 
7.124 
/.1A28 
7/.1A2C 


a0 11 8D | 7.1A30 E06 
01 997 47 /.1A34 78 
so 29 ag | /.1A38 18 
61 20 ar | 7.1A3C 11 
C9 20 BZ | 7.1A40 OF 
Aa FB 90 | /.1A44 88 
97 00 Fo | 7.1A48 IF 
A2 00 37 | /.1A4C DO 
FO 06 CB | /.1A50 OF 
CA Do 87 | 7.1054 A9 
BA 979 FA | 7.1A58 13 
E& FB CC | /.1ASC 8D 
977 41 0E | #-.1A60 00 
iF 91 32 | /.1A64 14 
DO 04 DD | 7-1R68 OB 
Do 06 CE | 7.1ASC IE 
FO 02 AB | /.1A70 12 
AS FC &z | /-1A74 D6 
BO 04 &n ; 1978 AO 
00 02 za | /-1A7C IE 
BD 14 34 | /-1ABO 88 
og | /-1AB8 4C 

= Br u /.1ABC E66 
Do 01 00 | /-1A90 EA 
/.1A94 ER 

A ee FR /.1A98 EA 
18 AE re | /-199C EA 
Eg ES 72 | /-1ano EA 
07 BD 29 | /-1Ana EA 
A2 01 pı | /-1AAs En 
tE BD 59 | /-1ARC EA 


63 3A Eg | /-1ABO EA 


69 30 41 /.1ABA EA 
iE CA 4D /.1ABB EA 
IE C9 7C /.1APCO ER 
o8 CB oA /.1AC4 EA 
DO F4 EO /.13ACB EA 
15 339 Fo | 7-1ACC EA 
12 iE BF /.1ADO EA 
15 En nz | /-1AD4 EA 
EA EA 00 /.31ADB EA 
ER EA 00 | /-1ADC EA 
EA ER 00 /.3AEO EA 
EA EA 00 | /-iAE4 EA 
EA EA 00 ?.1AE8 EA 
EA EB 00 /.1AEC ER 
4 >5 25 /.1AFO EA 


23 24 05 | /-1AF@ ER 
oA 28 05 | /-1AFB EA 


05 24 06 /.1AFC EA 
2E ZD OE | /.1B00 81 
20 2A 01 | /.1RH04 42 
2F 00 24 | f.iBOB 50 
BA BA 00 | /.1iBOC 90 
ES 20 Ba | /.1E10 DO 
39 00 ED | /-1E14 D2 
2 08 4E | /.1B18 BIS 
ao oo 44 | /.IBIC 7A 
12 A656 Ba | #.1R20 37 
Eö 19 >25 | /-1B24 04 
BD Eo ın | /- 1E28 31 
oA 91 72 | /.1BZC 40 
00 91 EY | /.1B30 10 
ES DO 03 | /.1B34 ii 
85 &1 FE | /.iR28 35 
EB ES C2 | 7/.1B3C 05 


Compupe mi 


/.1B40 
/.1B44 
/„.1B48 
/„1B4C 
/. 1850 
7.1554 
7.1558 
/.1B5C 
/.1B&ä0 
7/.1B64 
/.1B68 
F/.iBöl 
7.1670 
f.1874 
/.1R78 
/„3BTFC 
/.1280 
/.1BE4 
f“1EBE 
/.1BBU 
/.1570 
/.1B74 
f.1B98 
F.IBGC 
/„1BAO 
/.1BA4 
/.1BAB 
/.1BAG 
/„.1BRBO 
/.1B664 
/.1BEB 
/.1BBC 
/.1BCO 
/„1BC4 
/.1BCB 
/.1BCC 
f/.1EDO 
/.1ED4 
/.1BD8 
/„iBDE 
/.1BEO 
/.1BE4 
7/.1BEB 
/.1BEC 
/.1BF6 
/.iBF4 
/.15F8 
#.1BFE 
/.1C00 
7.1004 
/.1C08 
/„1C0E 
/.1C10 
/.1C14 
/.1£618 
/.1C1C 
/. 1620 
/.1024 
f.1C28 
/.1EC2C 
/. 1C3O 
/.1034 
f/. 1038 
/.1E3G 
/. 10406 
/.1C044 
/„1C48 
/.1C4C 





programme 


/.1650 FF SF OF 07 C8 | 7.1CDO CO O8 08 55 55 | 7.1050 7C FE Co Fe BE | /-1DDO 00 00 OB >20 8 
/.1654 03 03 01 01 00 | /.1CD4 SD &B ZB SD 00 | /.1054 7E 0& FE 7C Fa | /-1PD4 00 08 00 00 08 
+.1658 FF FF FF FF 00 | 7.iCDeE 00 00 18 SC 24 | /.1DSB 13 18 00 18 18 | /-1DDB 006 00 08 00 08 
#.1CSC FF FF C3 81 42 | 7.1CDC 3C 18 00 00 24 | 7.1DSC 18 13 18 18 00 | /.IDDE 00 08 08 10 10 
/.1C60 FF FE FO EO 13 | /.iCEO 00 42 SC SC 42 | 7.1060 7C FE CA Lo 84 | /-IDEO OE 1B 306 50 46 
/.1C64 CO CO BO 80 00 | /.1CE#4 SC 3C 42 00 42 | 7.1064 CO Ca FE 7c Ba | /-1IDEA 3a 18 OE 006 26 
/.1C68 00 00 00 IC iC | /.ICES 82 00 38 IC A& | 7.1068 C& C& Ch FE 38 | /-1BEB 00 20 7E 00 SE 
/.1C&C 08 IC 00 00 14 | /.1CEC 30 30 41 00 AD | /.1DEC FE Ca CA 66 38 | /-1DEC 7E 00 00 00 7E 
/„1C70 00 00 00 18 18 | /.1CFO 01 40 00 28 59 | /.1D70 7C FE C6& C& 82 | /-1DFO FD 9B BE 3F E2 
/.1C074 198 00 00 00 18 | /.1CF4 04 10 00 80 94 | 7.1D74 CA Ca FE 7C 82 | /-1DF& F7 57 &F 37 F9 
1.1078 00 18 24 56 5A | /.1CFB 00 00 20 04 24 | 7.1078 FC FC 30 20 10 | 7/-IDFE BF 87 DF F7 10 
/.1C7C BD 42 32 00 C3 | 7/.1CFC OB 00 00 80 BE | 7.1D7C 30 30 20 30 oc | -1DFC DF 27 9% 78 13 
/.1C80 3C 7E DB FF 646 | 7.1000 00 00 00 00 00 | 7.1DBO 00 3C &6 &4 3c | /? 
/.1C84 66 C3 42 24 C3 | 7.1003 00 00 00 00 00 | 7.1084 && &4 SC 00 36 


7.1688 20 70 FB 74 DC | 7.1D08 98 0B 08 OB 00 | /.1DBB 00 18 IB 78 58 
/.1CBC 2E IF OE 04 3B | /.1D0C 00 00 08 00 08 | 7. IDEE 18 18 7E 00 ?7E 
7.1690 00 00 00 04 04 | 7.1010 24 24 24 00 24 | 7.1D90 00 SC Sa 06 55 
7.1694 SE IF OE 04 iB | 7.1014 00 90 00 00 00 | 7.1094 38 SU TE 00 24 
7.1098 00 00 7E AB 55 | 7.1518 FB FC E& C& 04 | 7.1098 00 SC 86 O6 54 
/.169C DS 7E 00 00 AB | /.1D1C Ca C6 FC F& 04 | 1.1096 06 64 SC 90 Sc 
/.1CA0 00 7E 18 24 42 | /.1D020 FE FE CO FE 38 | /.10A0 00 06 tC 2C Sc 
| 7.1094 DE 24 18 7E 99 | 7.1024 FO CO FE FE 38 | 7.1DA4 7E O6 O6 00 7E 
I f.1ERS 20 80 FC 76 CO | 7.1028 FE FE CO FA SB | /.1D0AB 00 7E &0 FC 82 
/.ICAC SC IF SE 04 29 | /.1ID2C FB CO CO Co 38 | /.1DAC 06 44 306 O0 Sc 
- 7/.1CB0 00 7B EC EO 74 | 7.1030 C6& E& F& FE 28 | 7. 1DBO 00 ZB 60 7 >24 
I /.1CR4 79 10 DD 78 Ci | /.10354 FE DE EE C& 28 | ?.10694 && 54 36 00 36 
| z.1EBB 00 00 00 E3 ES | /.1038 FC FE C& FE ZA | /.1DEB 00 FE && O6 14 
| #/.iCBE B& 86 B& ES 85 | 7.1D3C FC CC C& Ce 30 | 7.1DEC 18 iR 18 00 18 
| f.1CE06 00 00 090 9& 95 | 7.1b40 FC FE C& FE 38 | /.1DC0 00 ID 46 SC 6 
| #.16C4 DA DB DE 98 42 | 7.1044 FC CA FE FC 38 | 7.1004 Sa 55 ZC 00 SC 
I; /.1CC8 00 00 03 73 70 | 7/.1D48 Ca EE 7C 38 &4C | - IDEE 00 EC 66 SE 64 
/.1LCCE DB FR C3 70 90 | 7/.1DAC S0 60 EO CO 70 | 7.1D0CE 08 SC ZB O0 32 





100 FORI=4224T044075TEF15:C5=0 

110 FORIT=OT015:READA: ÜS=CS+A: POKEI+J „A:NEXT 

120. READA:= IFCS=SATHENNEXT:END 

130 PRINT"DATA ERROR IN "1000+11-4224) 71&6*10:END 


1000 
1010 
1020 
1030 
1040 
1050 
1080 
1070 
1090 
1070 
1100 
1110 
1120 
1130 
1140 
1150 
1180 
1170 
1180 
11970 
1200 
1210 
1220 
1250 


2/86 


DATA201 ,63,8,41,15,40,144,2,105,8,96,32,207,255,32,128, 1377 
DATA18,10,10,10,10,133,255,32,207,255,32,128,16,5,255,96, 1470 
DATAS2,139,16,133,250,32,139,16,153,249,76,72,74,74,74,74, 1603 
DATA32,182,18,104,41,15,24,105,246,144,2,105,6,105,58,76, 1261 
DATA210,755,165,248,32,171,16,165,247,76,171,16,234,234,234,734, 2708 
DATA169,47,32,210,255,32,207,255,201,47,240,249,201,46,208,3, 2402 
DATA76,128,17,201,77,240,13,159,63,32,210,255,169,13,32,210, 1905 
DATA2S5,76,208,16,32,0,17,76,208,16,234,234,234,234,234,234, 2308 
DATAS2 ,207 ,255,32,160,16,165,249,123,247,165,250,133,248,32,207, 2531 
DATA255,201,13,240,3,32,160,16,169,13,32,210,755,169,47,32, 1947 
DATA210,255,169,46,32,210,255,32,194,16,1689,32,32,210,255,160, 2277 
DATAO,132,251,177,247,69,251,133,251,177,247,22,171,16,169,32, 2355 
DATAS2,210,255,200,192,4,208,235,1655,251,32,171,16,169,13,32, 2185 
DATA210,255,165,247,24,105,4,133,247,144,2,230,248,165,248,197, 2624 
DATA250,144,186,208,6,165,249,197,247,176,178,96,234,234,234,234, 3038 
DATAZ2,160,16,165,249,133,247,165,250,133,248,96,234,234,234,254, 2830 
DATA32,112,17,160,0,132,251,32,207,255,32,139,16,145,247,69, 1846 
DATAZS1,133,251,200,192,4,208,239,32,207,255,32,139,16,197,251, 2607 
DATA240,13,169,145,32,210,255,169,13,32,210,255,76,208,17,169, 2213 
DATA13,32,210,255,165,247,24,105,4,133,247,144,2,230,248,165, 2224 
DATA247,133,249, 165, 248,133,250,32,29,17,169,145,32,210,255,234, 2548 
DATA160,6,132,1998,169,29,153,119,2,136,16,250,768,208,158,234, 1904 
DATA234,234,234,234,234,234 234,234 ,234 „234,234 ,234,234,234,234,234, 3744 
DATA234 ,234,234,234,234 ,234 „234,234, 234,234 „234,234 ,234,234 234,234, 3704 
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werkstatt 
uaulaallnge\d - ein kurzes Maschinenprogramm für den VC-20, | 


mit dem man sich auf Tastendruck den aktuellen Stand der 


Speicherbelegung ansehen kann. 





Der VC-20 ist mit Speicherkapazität nicht 
gerade gesegnet und selbst wenn man 
sein Gedächtnis mit einer Speichererwei- 
terung um einiges ausgebaut hat, ist es 
bei größeren Programmiervorhaben in 
Basic unerläßlich, den verbleibenden 
Speicherraum ständig zu kontrollieren, 
Mit der FRE-Funktion ist dies zwar mög- 
lich, doch ist es zugleich recht aufwendig, 


| jedesmal die Anweisung neu einzugeben. 


38 


Hier schafft die vorliegende Routine Abhil- 
fe. Auf Tastendruck wird angezeigt, wie- 
viel Speicherraum Basicprogramm, nu- 
merische Variablen, Arrays und Stringva- 
riablen jeweils belegen, so daß man genau 
abschätzen kann, was noch im Speicher 
Ptatz hat. 


Eingabehinweise: 

Geben Sie den abgedruckten Basic-Loa- 
der ein und speichern Sie ihn zur Sicher- 
heit ab. Die REM-Anweisungen können 
dabei weggelassen werden, da sie für den 
Programmablauf völlig unrelevant sind. 
Im Listing tragen sie sehr zur Übersicht- 
lichkeit bei, in eingegebener Form verwir- 
ren sie eher. Da das Programm auf einem 
VG-20 mitt6kByte-Erweiterung entstand, 
ist es möglich, daß Anwender mit kleine- 
rer oder ganz ohne Erweiterung die REM- 
Anweisungen sogar weglassen müssen. 
Davon unabhängig ist die eigentliche Ma- 
schinenroutine, die relativ kurz ist und in 
jeder Ausbaustufe lauffähig ist. 

Nach dem Start mit RUN dauert es ein we- 
nig, bis die DATA-Werte eingelesen sind. 
Dann meldet das Programm entweder ei- 
nen Prüfsummenfehler in den Datazeilen, 
Sie müssen dann die entsprechenden Zei- 
len auf Fehler untersuchen, oder Sie ha- 
ben alles richtig eingegeben, dann 
erscheint die Abfrage „Abspeichern 
(J/N)?”. Kassettenanwender müssen hier 
leider nein (N) eingeben. Da die Routine im 


Kassettenpuffer angesiedelt ist, damit sie 
in alien Ausbaustufen läuft, kann sie nicht 
ohne weiteres auf Band abgespeichert 
werden. Kassettenanwender müssen also 
jedesmal den Basic-Loader laden und 
starten, um mit der Routine arbeiten zu 
können. Auch jede Kassettenoperafion 
zerstört das Programm; dies hat, ist die 
Routine aktiviert, fatale Folgen, da der IRO- 
Vektor auf die Routine weist (dies ist zur 
Abfrage der Taste notwendig). Der Com- 
puter hängt sich nämlich auf und kann nur 
durch Aus-/Anschalten oder einen RESET 
wieder belebt werden. Vor jeder Kasset- 
tenoperation muß die Routine also des- 
aktiviert werden; dies geschieht einfach 
durch gleichzeitiges Drücken der RUN/ 
STOP- und der RESTORE-Taste auf Ihrem 
VG-20. Besser haben es da die Disketten- 
anwender. Diskettenoperationen greifen 
nicht auf den Kassettenpuffer zu, folglich 
wird das Programm davon nicht beein- 
flußt und kann sogar als reine Maschinen- 
routine auf Diskette abgespeichert wer- 
den. In der Form belegt es nur einen Block 
und das lästige Einlesen der Datas entfällt 
dann bei späterem Gebrauch. Geben Sie 
dazu einfach ja (J) ein, nachdem Sie eine 
Diskette eingelegt haben. Die Routine wird 
dann automatisch unter dem Namen 
„MEMDISPLAYCODE* abgespeichert. 
Eingeladen werden muß die Routine dann 


absolut, also mit LOAD „MEMDISPLAY.-- 


CODE“,8,1. Nach dem Laden muß ein 
NEW eingegeben werden, um alle Basic- 
Pointer zu normalisieren. 

Haben Sie die Routine dann ordnungsge- 
mäß im Speicher, wird sie mit SY5828 ini- 
tialisiert. Abhängig davon, was zufällig 
gerade in Speicherstelle 2, die als Puffer 
genutzt wird, steht, kann es einige Sekun- 
den dauern, bis das Programm zum ersten 
Mal reagiert. Ist die Speicherstelle jedoch 
erst einmal heruntergezählt, genügt ein 


GSompuphe mib 


Druck auf die F1-Taste und augenblicklich 
wird die Speicherverteilung angezeigt. 
Aus programmtechnischen Gründen er- 


scheint dazu zuerst ein SYS873 auf dem | 


Bildschirm, was Sie aber nicht zu küm- 


mern braucht. Darunter dann in der näch- | 


sten Zeile: „BAS: ROO-yyyy“. DOOC-YYYYy 
gibt dabei dann den Speicherbereich an, |! 
der vom Basic-Programm belegt wird. 


Nach demselben Schema werden in den | 


folgenden Zeiten die Speicherbereiche für | 
numerische Variablen (VAR), Arrays 
(ARR) und Strings (STR) angezeigt. Beim 
VC-20 sind die einzelnen Speicherberei- | 
che so angeleat, daß BAS, VAR und ARRin 
dieser Reihenfolge am Beginn des RAM- 
Speichers liegen, während STR am Ende 
angesiedelt ist. Folglich ergibt sich aus 
dern Beginn des STR-Bereichs und dem 
Ende des ARR-Bereichs der verbleibende 
Speicherraum. 

Für Interessierte ist ein kommentiertes 
Assemblerlisting in den Basic-Loader in- 
tegriert, Die F1-Tasten-Abfrage ist in der 
Routine durch Erweiterung der IRO-Routi- 
ne realisiert. Ist F1 gedrückt, wird einfach 
5Y5873 in den Tastaturpuffer geschrie- 
ben. Dadurch wird die eigentliche Ausga- 
beroutine gestartet, die für ein-Einbinden 
in die IRO-Routine einfach zu fang ist. 
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REM 


SOYyDrUAUuNMGO 
u 
m 
3 


Fa ii 
u # 
un 


eh 
je} 
oO 
=) 
je) 


10002 
10004 
19008 
10008 
10010 
10012 
10014 
1001& 
10018 
10020 
10022 
100724 
10024 
10028 
10030 
10032 
19034 
10035 
10038 
10040 
10042 
10044 
10045 
10048 
10050 
10052 
10054 
1005& 
10058 
: 10040 
10082 
10084 
10055 
: 10058 
10070 
10072 
10074 
10075 
10078 
10090 
10082 
10084 
10084 
10058 
1009709 
10092 
10094 
1009& 
10078 
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werkstati_ 


KERNE HET ENTFERNT ER RETTET HEHE HN HE RIEHNHIERHIHHH ER H 


zur SE Ze Ze Ze Se ze > 


MEMOGRY-DISFLAY 


BELEGT WIRD DER SFEICHERBEREICH VOM 828 BIS 979 
INITIALISIERUNG ERFOLGT DURCH: 


SYSsazB 


WRITTEN 


1785 


RY 


WKALBEMAR RAAZ 


FUER DEN COMMODORE VZO 


E uE ZE Ze u ze Ze Ze 


EREEKETEREE HN ET HEHE HEN EEE HEN HIHERNINEIIHHNNHER ENH + 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


78 
A7,49 
80,03 
80,14,03 
86C,15,03 


Ad&,Fc 
ED,B2,03 


:REM 
REM 
: REM 
:REM 
REM 
REM 
:REM 
:REM 
:REM 
:KEHM 
:REM 
REM 
:REM 
:REM 
REM 
:REM 
REM 
ı REM 
: REM 
: REM 
: REM 
REM 
: REM 
:REM 
: REM 
:REM 
:REM 
:KEM 
: REM 
:REM 
REM 
REM 
REM 
:REM 
: REM 
:REM 
: REM 
REM 
: REM 
:REM 
:REM 
REM 
:REM 
REM 
ı REM 
REM 
REM 
REM 
:REM 
:REM 


BEI, 


LDA 
LDY 
5TA 
STY 
CI 
RTS 
DEC 
BEO 
JMP 
LDA 
5TA 
LDA 
EMPF 
ENE 
LDX 
STX 
LDA 
STA 
DEX 
BNE 
BEO 
LDX 
STX 
LDA 
LDY 
JSR 
LDA 
JSR 
LDX 
LDA 
TAY 


LDX 


TARA 
LDX 
JSR 
DA 
JSR 
ILDX 
LDA 
TAY 
LDX 
TARA 
LDX 
JSR 
JSR 
LDX 
INX 
INX 
INX 


#547 
#303 
20314 
30315 


$FR 
20350 
$SEABF 
#50A 
$FB 
$CB 
#527 
$034D 
#06 
$C6 
S03A9,X 
50276,X 


SOSSE 
*034D 
#500 
$FC 
$03B0,X 
FO3B1,X 
$CB1E 
#820 
$FFD2 
$FC 
+03B2,X 


$01,Y 


200,Y 
*DDCD 
##2D 
$FFD2 
$FC 
$03B3,X 


201,V 


200 ,Y 
$DDED 
SCAD? 
FC 


Sompupe mik 


DT u 7 Zur T zer To 


-..a-“R 


7 


.—-—A an a 


N Ne a 


I I BE > Bun 7 Bu I Bu 1 BE T BL’ 7 Buce 7 oS® © BETT 


am WE (de 


I. | Zu I 2050 7 Sur 3 Zac E Bun) 1 BuS= 7 Bu. 1 ozun © Be 7 Ber 7 Bun 7 zu : Bu 5} 


INTERRUPT SFERREN 
INTERRUFTVEKTOR AUF EIGENE 
ROBUTINE UMBIEGEN 


INTERRUFT WIEDER FREIGEBEN 

ZURUECK IN DBIE BASIC-BEFEHLSEBENE 
FUFFERSPEICHER ERNIEDRIGEN 

SCHON LEER 77 

NEIN, DANN NORMALE INTERRUFTSCHLEIFE 
JA, DANN WIEDER AUFFUELLEN 


F1-TASTE SEDRUECKT ur 


NEIN, DANN NORMALE INTERRUPTSCHLEIFE 
JA, DANN '5Y5875° + RETURN IN DEN 
TASTATURSPEICHER SCHREIBEN UND 
FOINTER ENTSPRECHEND SETZEN 


ZUR NORMALEN INTERRUPTSCHLEIFE 
BEGINN DER EIGENTLICHEN ROUTINE ZUR 
SPFEICHERBELEGUNGSANZEIGE 


'ZEIGER AUF NAMEN DES SPEICHERBEREICHS 


LADEN 
UND NAMEN AUSGEBEN 
LEERZEICHEN AUSGEBEN 


ZEIGER AUF BEGINN DES SPEICHERBEREICHS 
LADEN 
ZAHLENWERT> LADEN 


ZAHLENWERT< LADEN 
UND AUSGEBEN 
BINDESTRICH AUSGEBEN 


ZEIGER AUF ENDE DES SFEICHERBEREICHS 
LADEN 


ZAHLENWERT> LADEN 


ZAHLENWERTZ LADEN 
UND AUSGEBEN 
"ECR’ UND 'LF’ AUSGEBEN 


ZREHLREGISTER HROCHZAEHLEN 


39 


programme 


.10100 DATA EB :REM INX 3 

10102 DATA EO,10 :REM CFX #$10 ı ALLE SPEICHERBEREICHE AUSGEGEBEN 77? 
10104 DATA 70,C2 :REM BEC $OS6R ; NEIN, DANN DEN NAECHSTEN 

10106 DATA &0 :REM RTS ; JA, DANN FERTIG UND ZURUECK INS BASIC 
10108 DATA 53,D9,38,37,33,0D :REM „BY 5Y873. 


10110 DATA CO,03,2B,2D,05,03,2D,2F :REM 
10112 DATA CA,03,2F,31,CF,03,33,57 :REM 
10114 DATA 42,41,53,38,00,56,41,52 :REM „BY BAS: „VAR 
1011& DATA 3A,00,41,52,52,24,00,53 :REM .EY = .ARR=.5 


19118 DATA 54,52,3A,00 :REM „BY TR:. 

10200 : 10420 PRINT"SIE DAS PROGRAMM ALS"; 
10210 : RESTORE : P=0 10425 FRINT"REINE MASEHINENRCUTTINE"; 
10220 FOR I = 828 TO 979 10430 PRINT"ABSPEICHERN. ES BELEST"5 
10230 r READ As "10435 PRINT"IN DER FORM NUR EINEN"s 
10240 : GOSUB 10500 10340 PRINT"BLOCK. FUER KÄSSETTEN-"3 
19750 : P=P+tA 10445 PRINT"ANWENDER BESTEHT DIESE"; 
10250 : POKE I ,„ A 10450 FRINT"MOEGBLITHKEIT NICHT!" 
10270 z NEXT I 10455 PRINT"BABSPEICHERN (J/N} 7" 
10280 : 10460 BETGBF: IFG$=""THEN10469 

10290 : IF P = 18201 THEN 10400 10465 IFG$< >"J"THEN10485 

10299 z 10470 5YS57507 "MEMDISPLAY.CODE" „B,1 
10200 FRINT"LIHNEN IST BEIM ABTIP-"5 10475 FOKE251 ‚60: POKE252 ,3: POKE781 ,215 
10305 PRINT"PEN DER DATAZEILEN EIN"; 10480 FÜKE782 ,3:PÜOKE780 ,251:5Y565496& 
10310 PRINT"FEHLER UNTERLAUFEN!" 10485 PRINT"LAKTIVIERT WIRD BURCH=" 
10315 PRINT"UEBERPRUEFEN SIE BITTE"; 10440. PRINT"ERIN SYSR2B" 

10320 PRINT"NOCH EINMAL DIE ENT-"5 10495 END 

10325 PRINT"SPRECHENDEN PROGRAMM-"; 10499 ı 

10330 FRINT"ZEILEN!"=:END 10500 A#F=LEFTFIAF,ZD 

103997 » 10510 AlI=ASC{LEFTFtAF, LI): AZ=ASC (RIGHTS {AF,1)) 
10400 FRINT"LSIE HABEN ALLE DATA-"3 10520 Al=Al-48: IFA1>FTHENAISAL-7 
10405 PRINT"WERTE RICHTIG EINGEGE-"3 10530 A2=A7-48: IFAZFITHENAF=SA2-7 
10410 FRINT"BEN. WENN SIE MIT DIS-"; 10540 AslörAl+nz 

10445 PRINT"KETTE ARBEITEN „KDENNEN"; 10550 RETURN 





Dieses Geschicklichkeitsspiel ist eine tolle Autorennen-Spielvariante auf dem VC-20, 
orme Bl bei der Sie die Aufgabe haben, einen Rennwagen sicher über die Rennstrecke zu 
Eu steuern. 


Geschicklichkeitsspiel hr Gegenspieler ist der VC-20, der ebenfalls einen Rennwagen steuert. 


für VE-20 Liegengebliebene Fahrzeuge, plötzlich auftretende Ölflecken auf der Fahrbahn und 
. BE <chikanen die ab der dritten Runde auftreten sorgen dafür, daß die Fahrt über den Par- 
Grundversion  cour zu einer heißen Runde wird. Insgesamt gibt es fünf Runden pro Spiel. 


Steuern können Sie das Spiel sowohl über die Tastatur, als auch über Joystick! 


t REM VC-?20 GRUNDVERSITON 

2 REM DIRK TRABHARDT 45 DORTMUND 30 TRÄDDEWEG 4 6) 9 
35 

10 PDKES6 „2971 POKES?,27 

20 FORX=7544107679: READA: POKEX „AsNEXT: GOTGBOO 

200 REM 

210 PRINT"LX" PRINT" RINPRESS FLAY ON TAPE" 

220 WAIT37151,64,64 

220 PRINT"BLOADING PART 2" 

240 POKE 198,71 POKESS1 „761 POKE&S2 ‚2071 POKE63S, 151 POKE634 „821 POKE&SS, 2151 POKE&SS 1 
SZ: END 


#00 REM 

410 FORX=74301074981 READA: POKEX „Aı NEXTı SOTDZ000 

600 REM 640 FOKE34847 ,XıGOSUB700O:NEXT 

&10 FORX=44TDOSTEF-2 &50 GOT0200 

5209 FOKES6867 „X 3 GGBUB700 1 NEXT3 PRINT" 70060 FORJ=0T015:NEXTJ: RETURN 

830 FORX=2TO445TEP2 800 PRINT"L":F0=30720: FU=30962: Y=242 


Compute mib 26 


programme 


g10 


FORX=77751077823 READAI POKEX,, Aı FÜKEX+FO, 6: FOKEX+Y „Ar POKEX+FUÜ 51 NEXT 


820 FORX=7799107802: READA: FOKEX „As POKEX+FO „O1 POKEX+Y ‚Ar POKEX+FU O0: NEXT 
850 FORX=78201707825: READAı POKEX „As POKEX+FO , 21 FOKEX+Y „Ar POKEX+FU, ZI NEXT 
840 FORX=7837107850s READA: POKEX „Az POKEX+FO 0: POKEX+V As PDKEX+FU O4 NEXT 
850 FORX=78411T07872: READAı POKEX „Ar POKEX+FD O1 POKEX+Y „Ar POKEX+FU,O: NEXT 
850 FORX=78331T07894 : READA: POKEX „As POKEX+FO „O1 FOKEX+Y „Ar PDKEX+FU, 0: NEXT 
8709 FORX=7744T07965 1 POKEX „64: POKEX+44 , 641 NEXT: SOTO400 

9700 DATA102,102,255,247, 247, 255,102, 102, 102,102,255,239,239,255,102,102 


10109 
1020 
1030 
10940 
1050 
1040 
1070 


DATAS6, 254 ,254,56, a0, 254,254, 56 

DATAS6 „254,254 ,40, 56,254 „254,56 

DATAO, ö, Q, d, Os 6, 0,08 

DATAL2&, 129, 129) 129, 1297,129,129,126 

DATAO, 3, 32,66 „64,33, 18,10, ö, 192, 60,130,1, 33, 181,162 

DATA1O, 9,8, is, 15,15,0,0, 162, 58, 4,4, a, 8, 240, OÖ 

DATAFS, 144, 138, 132, 130, 129, 129, 126, 6,9,17, 23, 65,127,129,126,1265,129,129,65, 


33,17,9,6 


1080 
1999 
1100 
1110 
‚102 
3120 


DATA126,129,129, 130, 132,1%26,144,96,126,129,129,129,129,66,36, 24 

DATAO, 15, 24,28,1&,16,16,56, D55, 255,255,255,255,255, 255,255 
DATA121,121,121,121,121,121,121,121,80,85,73,79, 108,122, 254,252,76,123 
DATA160,150,160,122,104,49,55,104,76,160,160,160,160,160,160,78,102, 102,102 


DATA77,160,160,160,160,160,160,97,119,119,119,119,99,160,160, 160 


1130 DATA173,19,145,72,169,0,141,19,145,173,17,145,41,28,74,76,133,99,173,17,145 

„41,32 

1140 DATA10,10,5,99,133,99,104,141,19,145,162,127,142,34,145,173,32,145, 162,255, 

142,34 

1150 DATA145,41,128,74,74,74,74,5,99,73,143,133,99,169,0,133,99,162,144 

1160 DATA56,32,73,220,96 

1200 DATA" **FORMEL 1## EIN RASANTES RENNEN GEGEN DEN LOMPUT 

ER ı 

1210 DATA"DU STEUERST DEN WEISSEN WAGEN MIT DEN TASTEN (2) (X) (FS) FT. 

# 

1220 DATA"DAS RENNEN GEHT UEBER FUENF RUNDEN. LIEGENBLEIBENDE KONKURRENTEN UND D 

ELFLECKE 

1230 DATA" BEHINDERN DICH! VIEL SPASS!" 

2000 FA=158: READB$ , C$ ‚D# ,E$ı A$=B$+C$+D$+E$ 1 PRINT "SRERERKRREBTTEG" 

2010 WI=ASıWS=LEFTE (W622) EAS=RICHTECAF,LEN (AS) -Z2) +" 9 

2020 Z$=LEFTS(WS,1) ıWS=RIGHTS IWF ,Z1I+LEFTS(AS,1) 

2030 A$=RIGHT$(AF,LENLAS)-1)+Z# 

2040 PRINTCHR$ (145) J CHR$ (145) 3 W$: FORI=0T099: NEXT 

2050 BETISs IFIS<>""THENGOO 

2060 X=X+11 IFX>SOTHENZ100 2100 X=0:1 FA=FA+1bı IFFA>ZSSTHENFAR1SB 
BOTO2020 


2070 


z110 POKE34877,FA1 G0T02020 





Teil 2: 


2 P=7712:10=7734: R5=36877: 81=RS-1 152=R5-$ı LS5=RS+1 1 118057 4 U2e7 934: UF=>8090 1 U4=7727 
3 FA=30720: F=48: E=1 1 FOKEI4879 „261 POKESABAF,240 

4 PRINT" LEREAJEOYSTICK"3 3 INPUTAS: IFA$="J"THENXS=1 

5 FOKE1,&51POKE2,29+ PRINT"’LE" : 5605UB200: PDKE3S4849 „255: POKES4879 „SıFOKELS „3:1 80SUB%$ 


00 
& FOKES1,12B: J=2 15 BETS#$ 
10 IFXS<>1G0T015 16 IFS$=""GOT021 
11 IFUSR (0) >9THEN21 17 IFS$="Z"GoTo2s 
12 X=USR (0) sONX+1G0T021,27,28,21,25,21,21,21,26 i8 IFSsetyeGoToza 
19 IFS$="g"60T027 
20 IFSS="gI"GOTOZE . 
21 POKES2,Zı0NJG0T025,26,27,28 
25 POKEP,S14P=P-11 GDSUB400: POKEP ‚471. J=1 1 Ze1701 GDTD3O 
26 POKEP ‚511 P=P+1 1 G0SUB400: POKEP ‚481 J=2ı Z=1351 S0TO3O 
© 
2186 GCompute mib 4 


Programme 


27 FOKEP,51:P=P-22: GOSUB400 1 POKEP „491 J=3ı 7Z=1601 601039 
28 POKEF ,S13 P=eP+22: GDSUB400: POKEP „50: J=4: Z=145 


30 POKEP+30720,1 205 AS(HIm"VAIZSASTASTEATEZASTIESTG" 
31 GOSUBSO0:BDSUB&L00: GOTOLO 206 AStEI)BTAFSASSATIISASSTT BGAAAAAN 
ZOO REIS" AZALAAADAGAASAALAAAGAAN 207 ABC SUNAESESFATTESFIZTISZEIZA 
202 ARZT AISASSAZSTATSZESFSZIZZG ZB AFLOITATISATSTSTIIASSZIFIATETZG" 
203 ASCHNATSTSESZESEZTTFTFFZTZG" 207 ASP AZSSZIATTIGAAAAAAATIEIA N" 
204 AS (4)="433:444444444444493534" #10 FÜRX=1T0O22: READI:PRINTAF(IIJINEXT 


211 POKE7490 „62: POKE7778 „62: POKE7T&A9O+FA, Sı POKE777E+FA,S 

#12 FORI=8163T081851 POKEI »SZı FOKEI+FA, 7 NEXTS RETURN 

300 FORX=7705T077111 POKEX „51: FOKEX+1 ‚481 POKEX+1+FA, 11 505UB3S01 NEXT 

302 FORX=7728707733ı POKEX,51: POKEX+1, 48: POKEX+1+FA,2: GOSUB3S504 NEXT 

303 FORY=1T031 FORX=150TD1805TEPS1 BOSUBZ40: NEXTX ı FORX=200101508TEP-1 1 GOBUBS40 
304 NEXTXINEXTY 

305 FORD=0T02000: NEXTDı POKES1 „220: POKELS , Sı FORD=1 T0300 1 NEXTDı RETURN 

340 POKES1,X:POKES2,Xı POKELS „21 FORD=O0TO10: NEXTDı RETURN 

350 POKES2, 1581 FORD=0T0200: NEXTD: RETURN 


400 VEPEEK {P}} a IFV>SZANDV<S7THENBOO 503 IFO=STHENU=US: GOTOSOS 


402 IFVS>S1THEN 900 504 U=U4 
ı 4053 0=0+13 1FO/20=1NT (0/20) THENSBSUBI10O00: RETURN | SosS YeINT{RND{1}#15) : IFY=9THENS1O 
. 500 C=INT(RND(1)#4+1) 506 IFY=3ORY=Z20RY=1THENS2O 

501 IFC=1 THENU=}11 1 G0CT0505 507 RETURN 


42 


502 IFC=ZTHENU=U2: GOTOS05 


510 POKEU,53: POKEU+1 ‚54: POKEU+22,55: POKEU+23,56 
511 POKEU+FA,&63 POKEU+1+FA 6: PDKEU+22+FA ,&1 POKELI+23+FA „61 RETURN 

520 POKEU,S11POKEU+1 ‚51: POKEU+22,51: POKEU+23, 511 RETURN 

600 IFQ=78200RG=78750R0=81030RU=B1 1ATHENE=-11F=47: GOTO&S1 

602 IFO=B1OOORG=B1O6THENE=-22: F=49: G0T0651 

603 1F0=77260RU=8022THENE=11Fe483 GOT04651 

604 IFUs77430R0=78170R0>7BSBORA=-BOZBTHENE=22: FrS50 655 IFW2=STHEN21O 

651 POKEQ,S1: POKEOH+E ‚Fi POKEU+E+FA, 4: O=0l+E 656 IFK=1THENRETURN 
652 1FU=773ATHENWI=WIHL 457 IFW2=3THENSOSUB7OO 
653 IFWI=STHENIZ2OO &58 RETURN 

654 IFP=77340RP=77120RP=7756THENWZ=NZ+H1 


700 Bs="00370258224324H 344, 346636 hE 3EBAIEBE0I05F "Kerl 

703 FORX=1TO3FSTER4 4 Au (VAL (MIDF BF ,X 233): B= VAL IMIDE BE, (X+2) ,„23)) 

704 FOKE7FO7+A.BıPOKETFTIOT+HAHFA, FıNEXTX 

705 FORX=81 201081371 POKEX, 521 PÜKEX+FA, 7: NEXTX: RETURN 

800 FOKERS „230: J=INT {RND (1) #4+1) 1 FORX=0T010001 NEXTX: POKES1 +255: POKERS „0: 601021 


700 POKESI ‚O1 POKESZ2,0: POKERS, 1281 FORX=15TOOSTEP-. O2: PÜKEP, Xı POKELS, Xı NEXTX1 POKER 


8,0 
961 POKE19B,0:RUN 

1000 HP=INT(RND (1) #436+7703) ı HI=INT {RND (0) #4+447) sHF=INT {RND (0) #7+1) 
1001 IFPEEK (HP) =51THENPOKEHP „HI POKEHP+FA,HF 

1002 RETURN 


1200 POKE34869, 240: PRINT"LEISDU HAST LEIDER VER- LOREN": FORX=OTO2Z900: NEXT: SOTOF 


je]#] 


1210 FOKE34B49 „240: PRINT" RBGEWONNEN I I ! ";POKES1 ,0: POKES2 „O0: GDSUB2000:WAIT198,2 


RUN 

2000 READD,T,Aı IFA=-1THENLS=09: RETURN 

2001 FOKELS, 9: POKESS, T+200: POKES1,T+199: FORX=OTOD#S0 1 NEXTX ı POKESS „O0: POKEB1,O 
2002 FÜRK=OTOA#15: NEXTX = GOTD2000 

2005 DATA 1,3,3,3,4,8,8,8,2,5,5,95,5,6,2,2,2,9,7 474737 


2004 DATAt,i2,1,1,1.1.1.141, 1,142,1,12glplgiyiyi, 1olalsl »3,4,15,1,1,15,1,1,12,1% 


1,i2,1 
2005 DATAZ,7,4,1, 154151415,1,1,12,15141241,30 743414121514 14 141471414751 
2006 DATALJI,I,L.A,1 „2,-15,0,0 „o,-1 


Compube mib 


Bo: ; BEER er 
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bi; 


JM? Jump to New Location 


kurs 


6502-Assembler-Kurs 


Teil 9 





(Springe zu einer Sneicherstelle} 





| Dieser Befehl ist vergleichbar mit dem GOTO Befehl der Programmiersprache Basic. Anstelle der Zeilennummer wird hier jedoch die 
Adresse der anzuspringenden Speicherstetle, angegeben. Der JMP-Befehl ist der einzige Befehl, welcher die indirekte Adressierung 


beherrscht. 
HEX Adressterung Bytes Syntax 
AG Absolut (direkt) 3 JMP addr 
66 Indirekt 3 JMP addr 


Du de u ei 
hm 
00000 


ns 
ab 
oo 


| Se ae Be u u 
a NO 
SOSPUDS0 


Ka ba 
Wh 
je ie) 


5 


oa 8 ur m 


yS 368564 
*#t# BEISPIEL JMP-BEFEHL #r##* 


UFT P,00 


VIDEO 
TEMP 852 ;SPEICHERFLATZ FUER ZEICHEN 
START LDX #0 

STX TEMF ZEICHEN ABLEGEN 

LOGP LDA TEMP ;LADE ZEICHEN 

sTA 
INX 
ENE 
ING 
JMmr 
„END 
FRINT'CEERRPERERIIACHTUNG Een" 
PRINT"DAS FROGRAMM LAEUFT IN EINER" 
FRINT"ENDLOSSCHLEIFE. AUSSCHALTEN NUR” 
FRINT"MIT RUN-STOP/RESTORE !" 


»ZAEHLER UM 1 ERHOEHNEN 

LEOP ;NAECHSTES ZEICHEN AUSGEBEN 
TEMF 3ERHOEHE ZEICHELODE 

LOOPF 


1023 3; ANFANGSADRESSE DES BILBSCHIRMSPEICHERS 


VIDEO,X ;ZEICHEN IN BILDSCHIRMSFEICHER ABLEGEN 


EYS 49152 


: Das obige Beispiel veranschaulicht sehr 
| deutlich die Funktion und Möglichkeiten 
| des JMP-Befehles. Wie immer verwenden 
| wir wieder den Bildschirmspeicher zur 
i Demonstration unseres Programmes. 
Nach dem Start durch RUN, wird unser 
Programm in den Maschinencode über- 
| setzt und durch den Befehl SYS 49152, in 
| der Zeile 240, aufgerufen. Das Programm 
besteht aus der gleichen Programm- 
schleife und dem gleichem Algoritmus 
‘wie er schon im leizten Teil verwendet 
wurde, jedoch wurde diesmal ein speziel- 


2186 





ier Speicherplatz für den auszugebenden 
Zeichencode reserviert. Zu Beginn des 
Programmes wird, in Zeile 130, dieser 
Speicherstelle der Bildschirmcode 0 zu- 
gewiesen. Danach werden 255 Zeichen 
mit diesem Code auf den Schirm ge- 
bracht. Im Gegensatz zum letzten Pro- 
gramm wird jedoch nicht zum Basic zu- 
rückgesprungen, sondern die Zeilen 180 
und 185 ausgeführt. In Zeile 180 wird 
durch den !NC Befehl der aktuelle Zei- 
ehencode um 1 erhöht. Der JMP-Befehlin 
Zeile 185 sorgt nun dafür, daß das Pro- 


Gompute mi 


76543210 
NV BDIZC 


gramm in Zeile 140 weitergeführt wird. 
Durch diese Technik befindet sich das Pro- 
gramm in einer sogenannten Endlos- 
schleife, d. h., das Programm beginnt je- 
desmal von vorne und bricht niemals ab. 
Bei vielen Programmen würde nur das | 
Ein- und Ausschalten des Gomputers die- | 
sen Vorgang beenden, dadurch wäre 1 
selbstverständlich das Programm ge- 
löscht. 

Der 664 besitzt jedoch die Möglichkeit 
durch gleichzeitiges Betätigen der RUN/ 
STOP- und RESTORE-Taste einen NMI-In- 
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terrupt auszulösen und dadurch in den Basic-Interpreter zurückzuspringen. Das nachfolgende Listing zeigt den entsprechenden Ma- 
schinencode unserer kleinen Routine. 


3 #*%*# BEISFIEL JMP-BEFEHL #### 


503 COOO „OPT P1,00 
70: CO0O j *= 49152 
$ 
100: Cooo vipeo = 1024 zANFANGSADRESSE DES BILBSCHIRMSFEICHE 
RS 
110: DO00 TEMF = 832 sSPEICHERPLATZ FUER ZEICHEN 
120: Coo0 A2 00 START LDX #0 
130:  COOr BE 40 03 STX TEMP s ZEICHEN ABLEGEN 
140: TCOOS AD 40 03 LOOF LDA TEMP 3LADE ZEICHEN 
150:  COOB 9D 00 04 STA VIDEO,X zZEICHEN IN BILDSCHIRMSPEICHER ABLEG 
EN 
160: Cook ES INX ; ZAEHLER UM 1 ERHDEHEN 
170:  COOE DO F7 BNE LOOP ıNAECHSTES ZEICHEN AUSGEBEN 
180: CODE EE 40 03 INC TEMP sERHOEHE ZEICHECODE 
185: Coll 4C 05 Co JMF  1LOOP 


Der JMP-Befehl kann auch die absolute | fehles in das niederwertige Byte des Be- | Befehlzählers geladen. Die Befehlsaus- 
(direkte) Adressierungsart verwenden. In | fehlszählers und das dritte Byte des Be- | führung wird von dieser Adresse an fort- 


. diesem Fatl wird das zweite Byte des Be- | fehlszählers in das höherwertige Byte des | gesetzt. 
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JSR Jump to New Location Saving Return Address (Springe in Unterpregramm und registriere Rücksprungadresse) 


Der JSR-Befehl arbeitet ähnlich wie der JMP-Befehl, jedoch mit der Ausnahme, das vor Ausführung dieses Befehles, die Adresse des | 
nächstfolgenden Befehles auf den Stack abgelegt wird. Kommt der Prozessor auf einen RTS-Befehl, wird das Unterprogramm been- | 
det und der Prozessor springt an die Adresse, welche auf dem Stack abgelegt wurde. 


HEX Adressierung Bytes Syntax 176543210 

20 Absolut (direkt) 3 JSR addr NV BDIZG 

Beispiel: 

100 VIDEO = 1024 ; ANFANGSADRESSE In diesem Beispiel wurden die Zeilen 10 bis 80 weggelassen da 
110 TENP az BTEIGHERE diese identisch mit dem obigen Beispiel-Listing sind. Auch die- 
120 START LDX #0 ses Beispiel ist in Funktion und Algoritmus ähnlich wie das oben- 
120 STX TEMF - abgedruckte Programm. Neu hinzugekommen ist ein kleines Un- 
140 LODOP LDA TEMF terprogramm in den Zeilen 200 bis 230. Dieses Unterprogramm 1 
1509 STA VIDEO,X zählt nach jedem Aufruf von O bis 255 und stellt somit eine Art | 
155 JSR ZEIT ;VERZDEGSERUNG Verzögerungsschleife dar. In Zeile 155 rufen wir diese Verzöge- | 
160 INX rungsschieife durch unseren neuen Befehl „JSR“ auf. Wenn wir | 


170 BNE LOOP 
180 INC TEMP 
185 JMPLOOP 


dieses Programm nun starten, können wir den Ablauf, durch die | 
etwas langsamere Abarbeitung, wesentlich besser als bisher, ver- 
folgen. Bei der Betrachtung sollte man jedoch bedenken, daß die 


o ZEIT LDY #255 ;UNTERPROBRAMM ZUR Verzögerung hinier jeder einzelnen Zeichenausgabe aufgerufen 
210 ZEITA DEY ;VERZOEGERUNG wird. Das bedeutet, bevor das nächste Zeichen auf den Schirm ge- 
220 BNE ZEITA bracht wird, wurde die Verzögerungs-Routine 255 mal aufgeru- 1 
230 RTS fen. An diesem Beispiel wird wieder einmal die Geschwindigkeit: 
240 5; eines Maschinenprogrammes demonstriert. Probieren Sie dieses | 
250 „END Beispiel doch einmal in Basic zu programmieren und vergleichen | 
300 Sys 47152 Sig die unterschiedlichen Ablaufgeschwindigkeiten. | 
Literatur: 
6502 Microcomputer-Programmierung, Peter Heuer, Hofacker Verlag 64-Intern, Angershausen, Becker, Englisch, Gerits, Data-Becker Buch 
6502 Programmierung in Assembler, Lance A. Leventhal 5502/65002, Christian Persson, Heinz Heise Verlag 
’ © 
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Der Ghecksummer 1.0 GPC ist das Eingabehiifspro- 
gramm für alle Programme des TRONIG-Verlages. Es 
wird in Zukunft in jeder Ausgabe abgedruckt, um auch 
neuen Lesern die Eingabe der Programme zu erleichtern. 


Wie funktioniert der Chscksummer? 

Tippen Sie zunächst das Programm ab, wobei sie darauf 
achten müssen, daß alle Zwischenräume mit dem Li- 
sting übereinstimmen. Auch REM-Zeilen müssen origi- 
nal übernommen werden. . 

Sichern Sie nun das Programm auf KASSETTE oder DIS- 
KETTE bevor Sie es starten! 

Nach dem Speickern wird das Programm mit „RUN 
65200* aktiviert. Es erscheint die Meldung: CHECK- 
SUMMER AKTIV FUNKTIONSTASTE 0. Betätigen Sie nun 
die Taste 0, wird der Checksummer aufgerufen. Befindet 
sich kein zweites zu prüfendes Programm im Speicher, 
wird ein Selbsttest durchgeführt, Ertönt am Ende dieses 
Selbsttestes ein Signal, ist das Programm noch nicht 


fehlerfrei. Sie sollten in diesem Fall die auf dem Bild- 
schirm ausgegebenen Checksummen mit denen in Ihrer 
Zeitschrift vergleichen und korrigieren. Arbeiiet der 

} Checksummer überhaupt nicht, ist: der Fehler s0 gravie- 
rend, daß Sie das Programm neu eingeben müssen. 
tstIhr Programm fehlerfrei, entfernen Sie bitte die Zeilen 
65500 bis 65530 (Deleie 65500 -} um den Selbsitest 
auszuschalten. Speichern Sie jetzt das Programm mit 
dem Befehl SAVECHECKVI", A auf Kassette oder Disket- 
1e. Nur so können Sie es später mit MERGE an Ihre Pro- 
üramme anhängen, 





Wie benutzt man den Checksummer? 

Wollen Sie ein Programm sit CHECK überpräfen, laden 
Sie zunächst das zu prüfende Programm, Dann gegen 
Sie den Befehl MERGE"CHECKVT" ein, um das Prütpro- 
gramm anzuhängen. Wichtig ist, daß das zu prüfende 
Programm keine Zeilennummer besitzt, die größer als 
6519$ ist. Jetzt aktivieren Sie den Checksummer mit 


programme 


RUN 85200 und Sie können jederzeit die Prüfung mit der 
Funktionstaste 9 überprüfen. Vergleichen Sie nun die im 
Heft abaedruckten Prüfsummen mit denen, die Ihr Pro- 
gramm ausgibt. 

Falls Sie einen Fehler feststellen, müssen Sie nicht das 
Programm neu faden, sondern können ihn normal be- 
richtigen und dann wieder mit 0 das Gheck-Programm 
starten. Möchten Sie den Checksummer löschen, geben 
Sie einiach der Befehl DELETE 65260- ein. 


Anmerkung zu Ehecksummer 1.6 GPC: 
Groß-Kleinschreibung beachten! 

Leerzeichen innerhalb einer Zeile müssen dem ORIGI- 
NAL-Listing entsprechen! 

Leerzeichen am Ende einer Zeile werden ignoriert! 
Umgewandelte TOOKEN werden automatisch in den Ur- 
sprungswert zurückgesetzt! 

REM-Zeilen müssen eingegeben werden! 


Bestellnummer: 


Wer den Checksummer nicht eingeben möchte 


kann diesen auch unter der folgenden Bestell- 


CVS 10K Kassette 
£CVS 10D Diskette 





nummer beziehen: 


E20 "ar Tronic CPC Chscksunmer ### 
65210 "### Autor Frank Brall 1985 #8 
[Vorl Bd VERSION 1.0 . 

652350 KEY 128,"65530 REM TRENIC"+CHRS (13 
I+"run S5250"+CHR# (13) 

65240 PRINTIıPRINT"CHECKSUMMER AKTIV FUN 
KTIONSTASTE O"ı PRINTIEND 

65250 CLSı PRINT"Tronic-Verlag Checksumme 
r Version 1.0" 

65250 PRINTıPRINTIFRINTIPRINT"<B>TILDSCHI 
RM <D>RUECKER" 

65270 ES=INKEYSFIES=LORERSFIEFS) A IF E$e"" T 
HEN 55270 

&5280 IF Ef="p" 
65290 IF Ef="g" 
#5%00 GOTD 55200 
55310 ADRES3S=348: SCHECK=Ö: ELSI FRINTSA,"C 
HECK VI: PRUEFSUMMEN: "rPRINT#A: PRINTHA,"Z 
EILENNR.ı SLMMEN" 

65320 LAENGE= PEEK (ADRESS+1)%*255) +FEEK (A 
DRESS) 

65330 ZNUM= (PEEK (ADRESS+F) #256) +PEEK (ADR 
ESS+2) 

65340 IF ZNUM=45200 THEN IF F=0 THEN 654 
80 ELSE PRINT #A, USING "Han" ZNUMIJ : P - 


THEN a=0160T0 55310 
THEN a=5:1 6010 45310 


65370 WERT=PEEK (I+ADRESS+4) 

65350 IF WERT =32 THEN 65410 

653970 ZCHECK=ZCHEEK+WERT+CIHWERT) 

65400 IF ZCHECK>65535 THEN ZCHECK=ZCHECK 
-45535150T0 85400 

63410 NEXT I 

65420 IF F=0 THEN ZCHECKI1=ZCHECK: ZNUMI1®Z 
NUM: ADRESS=ADRESS+LAENGE: F=11 GOTO 85320 

65430 F=05 ZNUM?=ZNUM 





65440 PRINT #A„USING "#444" ZNUMIJ:PRIN | 


TAA,"—"S PRINT #A,USING "Hr" ZNUMZ25 IP 
RINT#A,":"51PRINT #A,USINB "Has"; ZCHE 
EK+ZCHECKI 

65450 GCHECK=BCHECK+ZCEHECK+ZCHECKI 

65460 IF GCHECK>65535 THEN GCHECK=SCHECK 
-655361B0TO 65460 

65470 ADRESS=ADRESS+LAENGE:GOTO 65320 
65480 PRINTHA, "ann nn 
_. 

65470 PRINT #a,"GESAMTCHECKSUMMEs 
65500 BEHECK=0: A=0:PRINT#ASPRINT#A,"CHER 
KSUMMER SELBSTTEST !":B0OTQ 65360 

65510 IF GCHECK=62078 THEN PRINT#A,"--EN 
DE--"3END 


"BCHEC 


RINT#A,"- "SıPRINT#A,"ı"4: PRINT #A, 65520 FRINT "FEHLER IM CHECKSUMMER 1,50 
USING "HH" 5 ZCHECK I F=0ı BOTO 85480 UND 1,100,500 
65350 IF ZNUM=45500 THEN 85510 555350 REM TRONIE 
65550 ZCHECK=Ö: FOR I=0 TO LAENGE-& 
CHECKSUMMER SELBSTTEST ! 
85206-865210: 73791 65250-452901 53556 65380-685370: 89147 
_ ü ) - 65440-685450: 18832 
65220-635230: 36739 65300-453103 24701 63350-653901 32907 65450-554701 B4126 
65240-852503 11825 65320-685330: 43809 63400-659410: 49578 55490-685490: 74923 
65260-852703 86096 63340-655350: 73115 65420-654301 28978 --ENDE-- 
Sompube mik 
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Wir schreiben das Jahr 2001 
und befinden uns aufderErde. 
Der Wandel der Zeit ist nicht 
' ganz spurlos an uns vorüber- 
gegangen und wirhaben Kon- 
takt zu außerirdischen Lebe- 
wesen. Einer dieser Außerirdi- 
schen muß mit seinem Raum- 
schiff auf einem Baugerüst in 
einer Stadtnotlanden, da sein 
Energievorrat verbraucht ist. 


Alien 2001 





Schneider CPL 464 


Alien versucht, die auf dem Baugerüst 
verteilten Batterien einzusammeln und zu 
seinem Raumschiff zu bringen. Auf die- 


sem Weg muß er jedoch über Löcher und 
Fließbänder springen, Leitern herauf-oder 
hinabklettern, Rutschen und Aufzüge be- 
nutzen und dabei stets auf etwaige Hin- 
dernisse achten. Aber beachten Sie bitte, 
daß Allen nur über begrenzte Kraft ver- 
fügt. Springt er gegen einen Hammer oder 
fällt er zu tief, verliert er Kraft. Sollte ihm 
die gesammte Kraft ausgegangen sein, 
bedeutet das seinen Tod. Die Berührung 
einer Bombe ist das sofortige Ende. Ach- 
ten Sie auch auf Wasser und verschwin- 
dende Breiter, da beides eine große Gefahr 
darstellt. 

Ingesamt gibt es bei diesem Spiel vier ver- 
schiedene Bilder, in denen jeweils ein Bo- 
nuszähler läuft. Je schneller Sie ein Spiel 
beenden, um so mehr Punkte erhalten Sie. 
Verlassen können Sie die Bilder durch die 
Tür, wenn Sie zuvor die einzelnen Batte- 
rien eingesammelt haben. 


Hinweise: Vor dem Abtippen des Pro- 
gramms sollte „AUTO“ eingegeben wer- 
den. Zum Spielen wird ein Joystick benö- 
tigt. Gestartet wird das Spiel mit „CTRL 
und „RUN“, 





Teil ]: 


10 MODE 1:BORDER 11 

20 FOR i=&C000 TOD &FFFF STEF 5 

30 IF INT(RND*25)I=3 THEN FOKE i,50 

40 NEXT 

50 MOVE 0,0:DRAW 0,399,1:DRAW 639,399:DR 
Al 639,0:DRAW 0,0 

60 INK 2,3:1INK 3,9 

70 y=2ıFÜR x=4 TD 24 STEF 2 

80 LOCATE #,y:FEN Z:PRINT "ALIEN "3=PEN 
3+PRINT "Z2001":y=y+2:NEXT 

30 MOVE 414,0:DRAW 16,399,1:MDVE 590,0:D 
RAW 193,399 

100 LOCATE 2,20:PEN S:FRINT CHR${164) 5" 
by RAINER KROTZ" 

110 LOCATE 22,&:FEN Z:FRINT CHR&(I64) 5" 
by RAINER .KROTZ" 

120 LOCATE 27,24:PEN 1:PRINT "LOADING" 
130 RUN "Alien 7001“ 


Teil 2: 
10 REM ### RAINER KROTZ #9# 
20 REM 
30 sc=0 


A0 DIM a#(20) 
50 MODE 2:FAFER O:FEN 1:INK 1,24:C0L5 
&0 SYMBül AFTER 255 


Compuhe mib 


70 ENT 1,30,-20,3 

80 ENT 7,200,5,6 

70 ENV 1,5,2,20,59,-2,20 

1090 MODE 0 

110 INK 0,0:1INK 1,3:INK 2,24:INK 3,4: INK 
4,13:1INK 5,15:INK 4,18,21:2INK 7,9:1INK 8 
„16: INK 9,122INK 10,258,12rINK 11,1rINK i 

2,2:INK 13,25,20r INK 14,20,26& 

120 b=l:kra=13:e=7 

130 WINDOW #1,1,20,1,20:FAPER #1,0 

140 WINDOW #2,1,20,21,25:FPAPER #2,3 

150 CL5S #1:CL5 #2 

150 LOCATE 1,22:PEN ÖsPAPER S:PRINT "SCDO 

RE :"ısc j 

170 LOCATE 1,23:PRINT "POWER e"z:PEN 1:P 

RINT CHR#£i14533:PEN 4:FOR i=1 TOD S:PRINT 
CHR# (143) 3 :NEXT 

180 LOCATE 1,24:FEN O:FRINT "ENERGY: 
190 MOVE 0,0:DRAW 0,79,2:DRAW 539,79ı DRA 

W 439,0: DRAW 0,0 

200 GSOSUB 29750 . 

210 pa=0:0N b GOSUR 1950,27210,2460 ,2710 


220 bon=5000 

230 BORBER 11:FAFER S:FEN O:LOCATE 8,22: 
FRINT sc:PAPER 0 

240 LOCATE 1,1 

250 FÜR i=1 TO 20:FOR t=1 TO 20 

260 z+=MID$ta#tı) ,„t,1) 

270 IF z$=CHR#I(&4) OR z3=SCHRF(54uI OR z$= 
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CHR$ (85) THEN p=5 
280 IF z&=CHR$ (65) 
=2 

270 IF z&=CHRFt47) THEN p=S 

300 IF z#=CHR# (68) THEN p=& 

310 IF z$=CHR#(57) THEN n=5 

320 IF z#=CHR$#(70) OR z$=CcHRsl71) OR ze 
CHR#& (723 THEN p=1 

330 IF z#=CHR#073) THEN p=7 

340 IF z#=CHR# (74) DR z$=CHR# (757 THEN po 


350 IF z$&=CHR#(75) THEN p=1 

340 IF zFf=eCHR#t77) THEN p=7 

370 IF z#=CHR$ (89) THEN p=2 

380 IF z$=CHREt9E) THEN p=13 

370 IF zS<>CHRFLSA) AND z4< >CHRE$ (56) AND 
ZE<S >CHRF (BB) THEN pa=0 ELSE pa=12 

400 IF z$=CHR# (85) THEN p=il 

310 IF z#=CHR$185) THEN pa=4 

420 IF z&=CHR$ (964) THEN pa=14 

430 IF z$=CHR#(97) THEN p=2 

#40 PAPER pa:FEN p:PRINT z$3 

450 NEXT=SNEXT 

450 PAPER O=:FEN 105LOCATE ex1,eyl:sFRINT 
"N"SLOCATE ex2,eyZ2: PRINT "N":LOCATE ex3, 

ey3:PRINT "N" 

470 PEN 7:LOCATE x,y:PRINT m$ 

450 el=1:e2=15e3=1:tu=0: weg=O 

490. sf=0 

„00 IF x=14 AND e=197 AND y=5 AND b=4 THE 

N GOTO 1750 

siöo IF x«=15 AND e=197 AND y=-5 AND b=4 THE 

N GOTO 17&0 

20 PAPER 3 

5350 IF x=exi AND yr-eyl AND el=i THEN e=e 

+1: 2f=eL:ei=ü:tu=sturi 

540 IF x=ex2 AND y=ey2 AND e2=1 THEN e-e 

+1l:2f=1l:e2=0:turtu+i 

550 IF x=ex3 AND y=ey3 AND e3-1 THEN e=e 

+l:2f=1ltej=0: tu=stu+l 

S60 IF zf=1 THEN sc=sc+100#b: 5OUND 1,478 
‚206,5350UND 1,319,30,5:S0OUND 1,213,40,7: 

LOCATE B,22:PAPER 3:PEN O:PRINT sc:LOCAT 

E e,„24:FEN 1:PRINT CHR# (244) :2f=0: LÜCATE 
*,y:IF tu=3 THEN weg=i 

570 PAPER 6 

580 IF b<4 AND weg=i AND *=1 AND y-o THE 

N 1240 

570 IF bon>i THEN bon=bon-1 

&00 wE=MIDs(as(y) ,x,1) 

#10 IF w&=CHR$ (975) THEN LOCATE x ,y:FEN 1 

Se PAPER 14:PRINT CHR$ (96) 2 y=y-i1:s PRINT CH 

R#(22):LDCATE »,y:PEN 7:PRINT m# 

620 wE=MID$ (asty),x,1) 

530 1$en$ 

40 IF wF=CHRF (48) 

650 IF w$=CHREF (96) 

&u0 IF »sF#=CHRF(55) THEN a=2:ıab=0 

670 IF w&=CHRSE(97) THEN a=?2: ab=O 

680 q#=MIDS (asty+1) ,x,„1) 

590 IF q&=CHRF(66) THEN LOCATE x,ys PRINT 
”" Mex=x+lsPRINT EHR${223:LDEATE x „y:PEN 
7=PRINT m#:GOTO 490 

700 IF q$=CHR$(32) THEN BOSUB 1110 


OR z&=CHR$# (89) THEN p 


THEN 1320 
THEN a=13:ab=14 
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710 IF g*=CHR# (58) THEN GOTO 1320 

720 IF g#=CHR# (88) THEN LOCATE x ,y:FRINT 
" Nzx=2-1l2PRINT ECHREIZZISLOCATE x,„y:ıFEN 
7:FRINT m$:60T0 490 

730 IF q&3=CHR$ (BI) THEN LOEATE »„y:PRINT 
" Mexzx-lay=y+liLDCATE x„y=PEN 7:FRINT 

m#:G0T7D 5850 

740 IF qg$=ECHR# (85) THEN 1590 

750 IF qs=CHR$(59) THEN MIDS{as(yri),s,.i 

>=CHR$ (32) 3 LOCATE »,„yt1:PRINT " " 

750 PRINT CHR#{Z2) CHRF(O)F:PAPER © 


770 IF JOYt{to}=1 AND w&=CEHR$St&D THEN LOO. 


ATE »„y:FEN 2:FRINT wEr y=y-1:sf=1 

780 IF IOY(O0)=2 AND qg$=CHR# (457? THEN LOG 
ATE x ,y2PEN ZıFRINT ws y=y+lısf=i 

e=0 IF JOY(iO)=4 THEN LOCATE x,y:PEN a:sPA 
PER ab:PRINT 1#:x=x-1:m$=CHR$ (84) 2 sf=1 


‚800 IF JDY{iG)=B THEN LEEATE x,y:PEN asFA 


PER ab=:PRINT I$:x=xr1:m&=CHR# (BI) ıs#=l 
810 ab=0 


820 IF JOY{tOo)=1& THEN GOSUB 920 


830 IF x<il THEN x=1. 

8406 IF x>20 THEN x=20 

850 IF x<1 THEN x=1 

BA IF x>20 THEN »=20 

870 PRINT CHR$ (22) 

880 FEN 7:LBCATE »,„y:PRINT m$ 

870 PRINT CHR# (221) CHR#$ (0) 

700 IF sf=1 THEN SOUND 1,0,2,4,0,0,10 
910 GDOTD 470 

920 IF »x<3 AND m+=CHR#$ (845 THEN RETURN 
97350 IF x>18 AND m$=CHRF$ (85) THEN RETURN 


740 SOUND 1,402,22,5,0,1 

750 IF m$=CHR$ (83) THEN s=1 ELSE s=-i 

960 LOCATE x ,ysFEN asFRINT i$ex=4+t5: y-y- 
i 

770 t$=MID$ (a#F(y) ,x,1) . 

80 IF t$=CHR# (545) THEN PRINT CHR$(22) 

970 LOCATE x,yıPEN 7:FRINT m$ 

1000 PRINT CHR$(ZZICHRE$ (0) 

1010 FÜR k=1 TO 20:NEXT 

1020 IF t$=CHR# (47) THEN GOSUB 1050: 6070 
1040 

1030 LOCATE x,y:PEN a:PRINT t$ıx=ex+s:y=y 

+i 

1040 RETURN 

1050 SDUND 2,534,200,4,1 

1050 LUOCATE x» ,„y=PEN S:PRINT CHR& (57) yay 

+1 

1070 PAPER 3:LOCATE kra,Z3:FRINT " ":PAP 

ER O:kraskra-i 

1090 IF kra=7 THEN GOTD 1890 

1090 1=1-1 

1100 RETURN 

1110 fa=0 

11206 w3=MID#tasty) ,x,1)} 

1130 IF W$=CHR$ (64) THEN p=5 

3140 IF wF=CEHRF (73) THEN p=7 

1150 IF w#=CHR$(70) OR wS=CHR$(71) OR ws 

=CHR$ 172) THEN p=1 

11506 IF w$<>CHR#t64) THEN pa=0 ELSE pa=1 

2 

1170 LOCATE x,„y:PEN p:PAPER pasFRINT w$ 
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1180 y-y+lıfa=fa+l 

1190 qg$=MID$s (asty+r1),»,1} 

1200 PEN 7:LOCATE x,„y:PRINT m$ 

12106 IF q$=CHR$ (32) THEN G0T0 1120 

1220 IF fa>t THEN LOCATE kra,23: PAPER 3: 

PRINT " ":kra=skra-1:FOR h=10 TO 20:5SOUND 
1,11354,3,5,0,0,h: NEXT 

1250 IF kra=7 THEN 1590 

1240 FAPER 0 

1250 RETURN 

1250 FOR 1i=399 TOD BO STEP -1:MDVE O,i:DR 

Au 439,1 ,0:NEXT 

1270 SYMBOL AFTER 255 

1280 LOCATE 4,10:PEN 10:PRINT "BONUS: "zb 
on 

1290 b=b+1 

1300 sc=sc+tbon 

1310 GOTD 200 

1320 FOR t=7 TO 1 STEF -0.3 

13309 SOUND 1,6,15,:,0,0,15 

13406 PEN 10:LDOCATE x ,„y:FRINT CHR#F(87) 
1350 NEXT 

13&0 LOCATE x,„y:FRINT EHR$tBöI FOR wel T 
0 1000:NEXT:LDCATE »„y:FRINT " " 

1370 BORDER 3:FAFER O:FOR #=y TO I STEF 
-1 

1330 q$=MIDEF (aflf},x,1} 

1390 IF gE<>CHR${32) THEN f=F-1:IF F=0 T 
HEN GOTO 1430 ELSE G0OT0 1580 

1400 LOCATE »,fF:PEN 1:PRINT CHR# (228): FO 
R wt=1 TO 200:NEXT 

1410 LOCATE x,„f:PRINT ” " 

1420 NEXT 

1430 LOGATE »,„Frl:FRINT " " 

1440 FOR a=0 TO 320 

1450 MOVE a,0:DRAW 3,5399,1:MBVE 639-4,0: 
DRAW 659-3,397: NEXT 

1450 SYMBOL AFTER 255 

1470 IF sc>hsc THEN hsesse 

1480 FOR s=5 TO 15:FEN ?2:PAPER 1 

149790 READ z#$ 

1500 LOCATE s,„10:PRINT z#$ 

1510 SDUND 1,0,2,7,0,0,5 

1520 FOR wt=1 TO 250:NEXT 

1530 NEXT 

1540 DATA #,6,A,M,E,-,7,D,V,E,R,# 

1550 FEN 10: LDOCATE 5,15:PRINT "SCORE: "3s 
c 

1560 FEN 7:LDCATE 5,17:PRINT "HISCDRE= "3 
hsc ° 

1570 FEN 113:LDCATE 1,24: PRINT "Press <FI 
RE> to play" 

1580 IF JOYtO)=1&5 THEN RUN ELSE 560TD 158 
[e) 

1570 PEN 7:LOCATE x ,„y:PFRINT CHR# (84) 
1300 s=478 

1510 FOR i=90 TD 95 

1520 LOCATE »„y=PRINT CHRS$(I) 

1830 Für r=1 705 

1540 s=s+10 

1650 SQUND 1,5,20,5 

1440 NEXT:NEXT 

1570 LOCATE x» ,„y:PRINT * " 

15880 GOTO 1370 

1570 SOUND 4,60,200,7,0,2 


1700 FOR d=1 TO 3 

1710 t=977+d: PAPER 0 

1720 LOCATE x,y:PEN 7:PRINT CHR$(t) 

1730 FOR w=1 TO 500:NEXT 

1730 NEXT 

1750 y=y-1:G0T0 1370 

1780 FEN Z:SFAPER 0 

1770 LOEATE 14,5: PRINT " 

1780 x=14:y=5 

1790 y=y-1:IF y=0 THEN GOTD 1840 

1900 LOCEATE x ,yıPRINT "3K":FOR wt=1 TD 3 
SO:NEXT 

1810 LOCATE x»,„y:PRINT " “ 

1820 x=x-1 

1830 GOTO 1790 

1840 LOCATE x,1sPRINT " 

1850 FOR v=397 TO 0 STEP -1:MDVE O,vıDRA 
W 639 ,v,O:NEXTIMODE Z:PAPER O:PEN 1 


1520 FOR ==49152 TO 45535 STEP 10 

1870 IF INT{RND=20)=3 THEN FOKE #,7 

1880 NEXT 

19870 SYMBOL AFTER 255 

1900 MOVE 300,0:DRAW 120,377,1:2MDVE 839, 
120:DRAW 120,399 d 
1910 LDEATE 26, 10:PRINT "2CONGRATELATION 

5+ 4 

1920 LOCATE 30,12: PRINT "You have saved 

the ALIEN" m 
19350 LOCATE 35,1&: PRINT "Your Score is " 

ısc - 

1940 LOCATE 44,22:PRINT "Prepare to cont 

inue !" 

1950 FÜR wt=1 TO &000: NEXT:GOTO so 


1960 afti)=" ; 
1970 ast2)=" u 
1980 a$tz)=" Asbamı ” 
1990 as(a)=" A A eacan “ 
2000 a$(ö)="a A A Aa" 
2010 astä)="eaca BR 4} " 
2020 a$(7)='" eeae Baagaen " 
2030 astB)=" A" u 
2040 a$ (9) =" a 
2050 ast10)=" Abe @ @ BEaAGaagage". By 
2060 astil)=" A A 8 
2070 asii?)e" A A “ 
2080 a$tl3)=" aaa A u _ 
2090 ast14)=" A eeaasaRgase " 
2100 asi15)=" A Eee cc B 
2110 aftis)e" A " 
2120 aFtli7)=" eadbantgageagren " 
2130 a$t{1B)=" A A" 
2190 astiN=" A A" 
Z150 a$ (20)="@6B8@RsABaUL IL IEBaRHaE" 


2160 exi=13:eyl=-F:ex2=1ß:ey2=13sexgelä:e 
y3=17 


2170 x=1:y=19 & 
2180 m$=CHR$ (83) 

2190 o=5 

2200 RETURN F 
2210 as(l)=" “ 

2220 a${t2)=" “ 
2230 a$(3)="AIDIIDIA " 

2240 a$(4)="A A “ 

2250 a$(5H)="A [ “ 


Compube mi | 2186 


2250 
' 2270 
2280 
290 
23500 
2310 
2320 
: 2330 
: 2340 
2350 
2340 
2370 
2390 
23970 
2400 
. 2410 
19 
2420 


2350 m$= 


2340 
2450 
DALO 

: 2470 

: 24RO 

2490 

: 2500 

. 2510 

 2S20 
230 
2540 

. 2550 
2560 
2570 
2580 
2590 
2600 
z7610 
2620 
2630 
2640 
2450 


2660 ex i=lü:eyle7saxn2sidßt ey2=ßB: exit ey 


-10 
2570 
2680 
24970 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
27090 
2790 
2800 
2810 
2920 
ı 2B30 
2840 

2850 

284,0 

2870 


2/86 


atläa)="fA 1rII YII“ 
as(I="f Y " 
atig)="fA Y ” 
ame D er 
att10)="AIIE III III III III" 
arte E “ 
astılzye a 
ast13)3="IIIXIXIIXIIXIXIXIIIA” 
az(t14)=" Ecc A” 
astı1m=" A" 
as(16)I=" YIDIDIA Yıil"“ 
asllI)=" Y A Y ” 
as (19)=" Y A Y " 
ati1l7)="a A ” 
a$(26)="I1IIIIIUBUUUUIIILIIII" 
ex 1=5r ey1>S:ex2=20: ey2=Iı ex 3=7ıey3- 


x=20: y-5 

CHR#$ (84) 

o=17 

RETURN 

arll)-" “ 
a$(2)="a " 
a: (3)="G’H YGH FH FGG’" 
asi4)=" ‘ Y Eee“ 
astä)=" * Y .. 
asth)=" * Y YSsG'" 
ale‘ Y 
as{B}="FGH FGESGGGH a 
as(ly)=" C FEGSGGH ** 
as (i10)=" D u En) 
as (11}="F6EGESAGSGGAH m .. 
at limI=" CA A C ““ 
asgt13)=" A A 
as{14)="'"GGGGH 2 FG6GSDGSGERG" 
ast15)="‘ “ 
asiis)="‘ " 
a$(17)="" FAGDEGAH YESAH " 
arlig="" A A Y A 
atmet A A [> 
a${iZ20)="IIXBILILGIIIIIUUUIII" 


x»=20: y=17 
m$=CHREF (84) 
o=2 

RETURN 
afil}e" " 
a lzy=" ” 
asd=" AeA 
asty=" AR A” 
ale AA JK A 
astö)=""IIIEEEIEIEEIIII A 
asl7y="! A” 
a+te)="' B A 
as(9}="" FGAGGSGEGH A 
as 10)="' A 
a#rt1l)="‘ [=] Y 
aft12)="" YGAGH v 
aft1p)="" YC A Y 
atil4)=""YM A 
ast15)="" M FAGGESBSH 
atftlaö)="M A 
atft17}=""M AD 


YGA 


TDPPIDP>D 
IT 


ZBE0 
28970 
2700 
2910 
-17 


2920 x 


2750 
2940 
2750 
29&0 
2970 


Programme 


as(1B)="" C Yasasıa nA“ 
ask DeaeDA Aa A" 
af (20) =" eeeX8eeeageealleagenen" 
ex1=3:peyl=-2:ex?=-ld:ey2=B: ex3=12:eyZ3 


=Züry=2 

mF=-CHRE 194) 
RETURN 
SYMBOL 
SYMBOL 
SYMBOL 


AFTER &3 
64,255,0,0,0,0,0,0,255 
65,255,129,255,129,255,129,2 


55,129 


2980 
29970 
3000 
3010 
3020 
3030 
55° 
3040 
24 
3050 
5 
3060 
3070 
08,8 
3080 
3090 
3106 
3110 
3120 
„255 
3130 
z140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
„129 
3250 
3260 
3270 
3280 


CHECK VLıPFRUEFSUMMEN: 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 


56,255,8,4,126,4,8,0,255 
67,24,24,24,74,62,60 
68,4,8,24,44,94,1726,60,24 
69,255,255 
70,7,9,16,38,38,16,9,7 
71,255,153,0,102,102,0,153,2 


SYMBOL 72,224,144,8,100,100,8,144,2 


SYMBOL 73,7559,24,55,36,66,66,129,75 


SYMBOL 
SYMBOL 


74,1,3,7,15,255,63,11,1&6 
75,129,192,224,240,255,252,2 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 


77,16,16,16,16,16,16,1&,1& 
78,24,24,36,44,36,44,36,60 
83,0,34,20,12,26,127,255,173 
84,0,68,40,48,88,254,255, 181 
85,0,255,255,255,255,255,255 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL, 
SYMBOL 
5YMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMEDL 
SYMBOL 


86,8,64,17,0,40,4,65,20 
87,8,72,73,42,42,149,6,38 
88,255,16,32,126,32,16,0,255 
89,1,3,7,13,25,49,97 ,255 
90,0,0,58,40,48,58, 254,255 
91,0,0,0,68,40,48,88,254 
92,0,0,0,0,68,40,48,88 
93,0,0,0,0,0,68,40,48 
94,0,0,0,0,0,0,68,40 
95,0,0,0,0,0,0,0,68 
96,255,0,255,0,255,0,255,0 
97,60,66,129,129,177,161,129 


SYMBOL 
SYMBOL 
SYMBOL 
RETURN 


78,0,0,0,0,24,60,126,255 
79,0,0,0,0,0,24,60,125 
100,0,0,0,0,0,0,24,50 


CHECK V13 PRUEFSUMMEN:s 





ZEILENNR.ı SUMMEN ZEILENNSR.ı BUMMEN 
10- 20: 22194 10- 20: 14410 
39- 401 24336 30- 40: 5716 
50- &0s 385482 50- 60: 12058 
70- B0r 58147 709- 80: &818 
9a- 1001 B1175 70- 1001 B261 
110- 120: 54774 n 110- 1201 66123 
130- ı &B08 130- 1401 17305 
ee mn 150- 1503 32101 

GESAMTCHECKELUMMEs 249784 170- 1B0ı 20B&2 


Compube mik 
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190- 
2109- 
230- 
250- 


270- 


270- 
310- 
330- 
330- 
370- 
3909- 
alö- 
430 
450- 
a70- 
ArO- 
sio- 
3350- 
530 
570- 
590- 
6i10- 
u30- 
659- 
&70- 
&I0- 
710- 
730- 
7509- 
770- 
790- 








Das Programm „Directory“, ist wie der Na- 
me schon sagt, zur Bearbeitung des Direc- 
tory’s gedacht. Hierdurch kann man ein- 
zelne Programme in „Files“ umbenennen, 


2004 
2208 
240: 
2608 
250: 
200 
32701 
340: 
3601 
380: 
400: 
4201 
440: 
4501 
490: 
[-Tels 1 
5208 
S40E 
5680: 
5801 
600: 
620: 
6401 
6507 
680: 
709: 
7203 
740: 
7&0R 
7801 
BO: 


30826 
39126 
27470 
458863 
98163 
42944 
62702 
77517 
42994 
43787 
Ar274 
48671 
3038 
45597 
18172 
24008 
21079 
37336 
64127 
28790 
60571 
28497 
16647 
775308 
635319 
0370 
50512 
73915 
21505 
97120 
63256 


werkstatt 


810- 
B30- 
850- 
8979- 
Br0- 
710- 
730- 
950- 
770- 
990- 
1010- 
1030—- 
1950- 
1070- 
1090- 
1110- 
1130- 
1150- 
1170- 
1190- 
1210- 
1230- 
1250- 
1270- 
1290- 
i310- 
1330- 
41350- 
1370- 
1390- 
1+10- 





820: 
8401 
B&0: 
880: 
F7O0E 
920: 
940: 
90H 
2B0:r 
1000: 
1020: 
1040: 
10501 
10805 
110901 
1120: 
1140: 
1180: 
1180: 
12091 
12203 
12401 
1240: 
12801 
13003 
13203 
13403 
13601 
13801 
14004 
14201 


15073 
271497 
29149 
18379 
23366 
337978 
Sr0iRB 
95908 
42124 
21405 
28738 
48583 
S7i1I& 
15403 

7170 
23297 
42854 
88917 
sr0s1 
42084 
53510 
11673 
620293 
31073 
24445 
28517 
30107 
36075 
2507 
40701 

8397 


1330- 
1450- 
1470- 
1490- 
1510- 
1530- 
1550- 
1570- 
1570- 
1610- 
1630- 
1650- 
1670- 
1490- 
1710- 
1730- 
1750- 
1770- 
1790- 
1810- 
1830- 
1950- 
1870- 
1890- 
1910- 
1930- 
1950- 
1970- 
1990- 
2010- 
2030- 


1440: 
1440: 
14650: 
1500r 
15203 
1530r 
15503 
1580: 
1500 
1620r 
1540: 
1640 
1580: 
1700r 
17208 
17401 
1780: 
17901 
13001 
18203 
19406: 
1840: 
1880: 
17004 
19201 
19301 
19801 
1950: 
2000: 
20201 
2040: 








ir das Handhucbläiem übers 


„RENAMEN" oder ganz und gar aus dem 
Directory löschen. Außerdem besteht 
nach erfolgter Eingabe die Möglichkeit, 
das Directory zu überprüfen oder wieder 


| zu bearbeiten. 
Welche Vorgehensweise in den einzelnen - 
Programmteilen nötig ist, wird im Pro- 
gramm selbst genau erläutert. 











187414 2050- 2050: 34981 2670- 26501 14878... 
24327 | 2070- 20801 17668 | 2670- 27003 2461 
53520 2090- 2100r 319747 2710- 2720: 94832 
1011B 2110- 2120: 335356 2730- 27401 18850 
17533 2130- 21403 16751 2750- 27601 38446 
18102 2150- 21601 93472 2770- 27501 16230 
Sh7B1 2170- 21B0ı 14122 2790- 28001 33903 
54533 2190- 2200; 247% Z2810- 2820: 30574 
24417 2210” 22201 #442 2830- 2840: 27816 
ZuAS3 2230- 2240: 18754 2350- 2840: 33162 
13310 2250- 22560 22985 2970- 2880: Z1010 
4781 2270- 2280: 15353 2890- 2900: 49707 
9065 22970- 2300: 35682 2910- 27201 562784 
11384 2310- 2320: 13250 2930- 2540: 57354 
347728 2330- 23401 47915 2950- 297403 15410 
12337 2350- 2350: 29326 2770- 2980: 52475 
12472- 2370- 2380: 209453 2920- 3000: 2482& 
11885 2370- 2400; 44217 3010- 3020: 15686 
FEI72 2410- 24201 619697 3039- 30401 49508 
15623 2430- 24430: 7980 3050- 3050: 39512 
6257 2450=- 2460: 459197 3070- 30801 46000 
50992 2470- 2360: 29524 3079- 3100: 39435: 
23160 2490- 25001 22015 Z110- 3120: 69521 
zg553 2510- 2520: 28718 3130- 31401 27277 
77392 2530- 2540ı 37475 Z150- 31601 38252 
81141 2550- 25401 33547 3170- 31801 43321 
22027 2570- 25801 23350 3190- 32001 22547 
415107 2590- 2400: 38336 S210- 3220: 14%87 
23228 2610- 2620: 32177 32350- 3240: 50647 
z03989 2630- 2630: 229749 3250- 3240: 29387 
13166 Z650- 2601 923753 3?270- 3250: 5926 ä 
FERIEN EREREREREREESFEESERER E 
GESAMTCHECKSUMME: 53609 











LS bunte ln nrierk Biete li 


| 
; 


PReEESE I 2 2 2 2 2 20020202 00002702 000272727 20027% 0202707202 

ar DIRECTORY ** 

So '## by OLIVER IHNS in 1955 ## 

40 "#8 for CEFRE A454 + 

SO '#* LOFYRIGHT'’BS BY D.IHNS ** 

ED EEREEIERNIH ER HHR RIH HF 

oO" 

BO "H+++4+44+ Titelbild +4++444++ 

70° j 

100 SYMBOL AFTER 750 

110 :SYMEROL 251,129,.6565.36,125,70,125,70, 

102 . 

120 EYMEDOL 252,24,24,255,255,231,126,60, 

36 

130 aF=CHRE& (251) 2 bE=CHRE (259 

140 MODE Os INK 0,0:1INK 1,24: BORDER ÖO:FEN 
1;FAFER GriNK 2,20,0 


150 FEN Ssx=laye1:FOR y=1 T0 21 STEF 1:L 
UCATE x „ytisFRINT'COFYRIGEHT (2) 85 by":S5 
OUND 2,9#50,7:L0OCATE x ,y:FPRINT" 
"NEXT 

1680 »=0: y=234FDR x=1 TB 4:L0CATE x ,yıFRI 
NT" ":LOCATE xt1,y:FEN 1:FRINT"Oliver Ih 
ns":50UND 1,2#478,5:NEXT 

170 z=1:y=135: FOR »=1 TO 2 :LOCATE x+tl,y: 
FEN &S:FRINT a#ı:PEN 12:FRINT" DIRECTORY 
"ZLOCATE »+1,y+lsPEN 1I:FRINT bE:LOCATE 


 Gompube mib 


276 LOCATE 1,4:FPEN 2: FRINT STRINB$ (40,CH 


#,ysFRINT " "SLOCATE x„y+i1zPRINT " "SNEX 
T 

120 FEN GrPÄAPER 0: 

190 FEN 7: LOGCATE 1,25: PRINT'ERC 4684 CF 
e 44 0" 


200 FOR x%=0 TB 250 STEP 3 

210 FOR y%=0 TD 14 STEP 1 

20 IF TEST (x%,y%) THEN FLOT x%+165,y%8 
44336,3:1F TEST (XX,Y2) THEN FLOT X%+169 
„YERIHEAO, 4 

30 NEXT 
240 NEXT 
250 LOCATE 1,8:PEN Z2ERINT"> 
TASTE £":CALL &BB1B 
280 CLSSMODE 1:INK O,1rINK 1,24:1INK 2,18 
INK 3,&:FAFER 0 
270 LOCATE 1,1:FEN SZ: PRINT STRING$ (40,21 
6) 
280 LOCATE 12,2:PEN 1sFRINT’'DIREULT 
ya 


BITTE EINE 


R$(ZS1))2LOCATE 1,5:FEN S:ıFRINT STRINGEt 
40,208} 

=00 FEN 2:L0CATE t,7:FRINT CHRE&(24)3" Di 
eses Frogramm hilf bei der Bearbei- ." 
310 LOCATE 1,8:PRINT" tung von Disketten 
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320 LOCATE 1,10: PRINT" Man kann wit dies 


em Programm das u 

350 LOCATE 1,11:PRINT"* Directory bearbei 
ten. Man kann Froo " 

340 LGECATE 1,12:PFRINT" gramme aus dem Di 
rectory Ioeschen oder " 

350 LOCATE 1,13:PRINT" einzelne Files um 
bennen {RENAMEN) " 

360 LOCATE 1,14:PRINT” 

L SPASS "sCHR# (24) 
370 LOCATE 1,16:PEN 3:PRINT CHR$t150)45T 
RINGS$ (39,154) s CHR$ (156) 

380 FOR i=17 TO 22:LDOCATE 1,i:FRINT CHR& 
{1493 2LOCATE 1,23: PRINT CHR$1147):LOCATE 
2,23: PRINT STRING$ (38,154) :NEXT:FOR i=1 
7 TO 22:LOCATE 40,i:PRINT CHRF(I149): LOCA 
TE 40,23:PRINT CHR& (153) NEXT: 


VIE 


390 LOCATE 2,19:PEN 3:PRINT STRINGE (38,1 
54)2LDCATE 2,21:PEN 3:PRINT STRINGF (38,1 
54) 
400 LOEATE 5,15:FPEN 1=FRINT CHRF(24)5, "Co 
pyright tc}’85 by Oliver Ihn=s";CHR#124) 
410 LOCATE 2,18:FEN Z=:PRINT"1:Loeschen 

j i 2: Renamen' 
420 LOCATE 2,20:PEN 2:FRINT"S3: Directory 
anz. ı 4: End" 
330 LOCATE 2,25:PEN 1:2 INFUT"BITTE WAEHLE 
N SIE '’r1-41 ",„wahl 
240 HH tt+ Abfrage +H4444+rrtr+ 
450 ON wahl GOTO 460,510,880,740 
ALO "+HHrttt+r ++ LOESCHEN +#+4H4+ . 
470 ELS:LOCATE 16,2:PEN 3: FRINT"LOESCHEN 
":G6070 580 
480 LOCGATE 1,3:PEN 
8) 
490 LOCATE 1,5:FEN 


2:FRINT STRING (40,20 


1:INPUT"Welches Frogr 


amm soll geloescht werden ---> "ınas 
SO0 LOCATE 1,B:PEN 2:FPRINT"Soll das Frog 
ramm ——-> "ınat; "wirklich geloescht werd 


en "s:LDOCATE 77,9: 1INFUT"": J$ 
510 IF antwort$s="N" OR antswort#="n" 
GOTDO 2850 ELSE IF anwort#+="J" 
$="j" THEN GOTG 520 
520 LOCATE 1,5:FRINT STRINGS$ (40," 
LOCATE 1,6: PRINT STRINGS (40," 
LOCATE 1,7:FPRINT STRING$ (40,” ")}a 
LOCATE 1,8:FRINT STRINGF(40," "5 
LOCATE 1,7:FRINT STRING$ (40," 
530 LOCATE 1,5:FEN 3:FRINT"Bitte legen 5 
ie die Diskette ein und druecken Sie 
dann eine Taste: _":CALl BEI 
540 !ERA,„8ena$s 
550 LOCATE 1,89:FEN 23FRINT'TFERTIBG" 
550 LOCATE 1,9:PEN 1:INFUT"Soll noch ein 
Frogramm gelosescht werden -—-+ [Lj/n)"sw 
£ 
570 IF w$="1" OR w$="j" THEN 470 ELSE IF 
ws="N" OR wE="n" THEN 250 
SB0 LBCATE 1,1B:FEN 2:FRINT"WICHTIG: ---5 
Es muss zuerst der Fro- grammname, d 
ann ein Punkt und dann Art des Prog 
rammes eingegeben werden." 
570 LÖCATE 1,24:FEN S:FRINT"EBeispiel -—7 


THEN 
OR antwort 


“): 


")z 


werkstatt 


> Alien.bas" 

“co GOTO 480 

&10 “4ttrrttr+ Renamen +r++++++ 

&20 CLS 

6309 LGCATE 1,1:PFEN 1:PRINT"RENAMEN" 

640 LOCATE 1,3:PEN 153FRINT STRING$ (40,15 
4} 

550 LOCATE 1,4:PEN 1:PRINT"So muss einge 
geben werden ---> flug2.bas" 

&60 LOCATE 1,5:PEN ?2:FRINT"Es muss zurer 
st der Filename eingegeben werden, dann 

ein Funkt und firt des Files” 

570 LOCATE 1,B:PEN 3: INPUT"Alter Filenam 


e:",asb 

820 LOCATE 1,10:FEN 2: INPUT"Neuer Filena 
me:",b# 

690 LOCATE 1,8:PRINT STRINGF (40," 

700 LOCATE 1,10:FPRINT STRING# (40," 
710 LOCATE 1,B8:FPEN Z:FRINT"Flease insert 


disc to be renamed in drive A then 

press any keys-":CALL %BB1iB 

720 LOCATE 13,10: PEN 1:FRINT CHR$#(150)355 

TRINGS$ (13,154) 3; CHR& (156) 

730 FOR i=1i TU 22: LOCATE 15,irFRINT CHR 

#149) 5 LOCATE 27,i1:PRINT CHR# (IA :NEXT 
740 LOCATE 13,23:PRINT CHR$(147):5TRINGF 
(13,154; CHRF1153) 

750 Für a=1 TO 350 

760 FLOT Z10+20#C0S la}, 
770 NEXT a 

780 FOR a=i TO 350 

799 PLOT 310+8*C0S(a), ZZUr20x*5IN(a),3 
BOO NEXT 

810 LOCATE 4,24:PEN 1:PRINT"Moment bitte 
„es wird renamed !" 

820 IREN,eb$,8a# 

830 LOCATE 1,24:PRINT STRINGSL4O," ”) 

840 LOCATE 1,24:PEN 3:PRINT"FERTIG !!"ı:F 

OR x=1 TO 2000: NEXT:LOCATE 1,245FEN 2:IN 
PUT"Soll noch etwas renamed werden ";d# 
gSso IF d#="N" OR d#="n"” THEN 260 ELSE IF 
d$="I" OR d$s="j" THEN 610 

BAO "+++++r+rr Directory Ht+t++t+++ 

870 ELS " 

880 LOCATE 165,1:PEN 3:FRINT"Directory" 
8950 LOCATE 1,5:FEN 1:PRINT STRINGE (40,15 
4) 

200 LOCATE 1,5:PEN 2: 1DIR 

910 LOCATE 1,20:FEN 1:PRINT"Eitte eine T 
aste zum weitermachen":CALi &BE18 

920 FÜR i=4 TO ?1:L0OCATE 1,i:PRINT STRIN 

GF(AO,"F "IENEXT 

330 LOCATE 1,5:FEN 3: INFUT"Wieder zum Me 
nue zurueck "aw$ 

940 IF „nEs="N" OR w$="n" THEN LOCATE 1,5: 
FRINT STRING$ (49," "):LOcATE 1,5:FPEN 233 
DIR:ECTO 910 


150+20*51IN (a) ,3 


950 IF wE="J" OR w#="j" THEN 2606 
ga et tr End FrtttHttrrrtrtt 
970 ELS 


9850 LOCATE 19,1:FPEN 1rFRINT"End" 

770 LOCATE 1,3:3PEN 2:FRINT STRING# (A0,” 
Lu | 

1000 LOCSTE 1,&6:FEN S:INPUT"Soll das Fro 
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tips & tricks 


gramm wirklich beendet 
1010 IF f$="J" OR fr="j 


werden 
" THEN 1030 


1020 IF f£="N" 
1030 EALL 0 


"ıf8 DR f$="n" THEN 240 


" Frogr aın-Ende 


CHETE V1- PRUEFSUMMEN: 430- 


450- 


440: 
#607 


29065 
41102 


190- 
z10- 


z00% 
220: 


38565 
143201 


B4800 
19043 


s7o- 
BrO- 


L-j=jeF} 


FO0: BIC- - 7005 24335 


ZEILENNR.: SUMMEN 230- z40: 352 Y70- 480: 43049 710- 720: 75541 F910- 920: 9B371 
19-- 26: 34847 2S50- 2&0: 71544 499- 500: 37585 730- 740: 77395 Y30- 940: 72277 
So 40: 37201 270- 280: 38755 s10- 520: 77704 750- 760: 55782 950- 90: 48575 
9d- al: 459627 2IG- 300e 23751 530- 540: 55459 F790- 730: 8943 D70- BEL: 9960 
70- . Blr 27914 Z10- Z90: S18?2 S50- 560: 64071 790- Bode 47564 F70- 10090: 27735 
90- 106: 2661 320- 340: sas1d 379- 580: 73211 S10O- 820: 275399 1010- 1020: 51337 
110- 120: 52996 350- 360: 5118 590- 500: 53845 8I0- 840: 50594 1030- : 18022 
130- 140: 55201 370- 380: 82540 610- 6203 23103 B850- Balz 82487 | 7777 
150- I1&0: 47494 Z90- 300: 4206 630- 6402 29350 870- 880: 23786 GESAMTCHECKSUNHE: 50526 


170- 180: 54883 


410m 


420: 1187ZB 


550- 540: B9211 









Der ne: am nCPC | 


‘Bei vielen Lesern scheint die Abfrage des 
Joysticks immer noch ein Problem darzu- 
stellen. Daher wollen wir an dieser Stelle 
einmal kurz beschreiben, wie eine Abfra- 
ge richtig funktioniert. 

Meistens erfolgt die Abfrage mittels der 
Befehlsfolge: 

IF JOY(0)=2 THEN...... 

IF JOY{0)=1 THEN...... 

USW. 


Das ist zwar im Prinzip richtig, erlaubt aber 
nur die Bewegung des Joysticks in 4 
Richtungen. Zudem muß der Joystick ex- 
akt in die jeweilige Richtung bewegt wer- 
den. Gleichzeitiges Bewegen und Schie- 
Ben ist nicht möglich. 

Wird aber bei der Abfrage statt des Gleich- 
heitszeichens die AND-Funktion ange- 
wandt, kann mit 5 Befehlen die Steuerung 
in 8 Richtungen erfolgen, wobei gleichzei- 
tige Betätigung des Feuerknopfes möglich 
ist. 


Ein Beispiel: 
A ist die Variable für die Waage- 
.. rechte. 

B für die Senkrechte 


Die Befehlsfelge lautet: 

10 IF JOY(0) AND 1 THEN B=B-1 

20 IF JOY{0) AND 2 THEN B=B+1 

30 IF JOY(0) AND 4 THEN A=A-I 

40 IF JOY(0) AND 8 THEN A=A+1 

50 IF JOYiO) AND 16 THEN GOTO.... „REM 
FEUERKNOPF HDATE 
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EN) 


Einer unserer kritischsten Programm-An- 
wender - Herr Hummel aus Winterbach - 
hat nach regem Briefwechsel mit unserer 
Programmierabteilung einen Verbesse- 
rungsvorschlag zum Programm „Superfi- 
le“ aus Heft 7/85. Das bisherige Pro- 
gramm war zwar voll funktionsfähig, bei 
Falscheingaben konnten jedoch Fehler 
auftreten. Diese Änderung schließt nun 
solche Fehler aus. D. h. im Klartext, daß 






EL 


bei falschen Eingaben oder Bedienungs- 
fehler keine Datenverluste oder Pro- 
grammabbrüche auftreten können. Die 
Redaktion bedankt sich bei Herrn Hummel 
für die Geduld und Hartnäckigkeit bei der 
Durchsetzung dieses Verbesserungsvor- 
schlages. 

Wir hoffen, daß alle Anwender nun eine 
optimale Datenverwaltung verwirklichen 
können. 


70 IF UFPERF(wahl$)="J" THEN 400 ELSE 1 


so 


900 hdat=19000\1laengeı DIM inhalt$(hdat) 
1240 IF. a$=CHR#(127) THEN FOR felder=i T 
D hfelders inhalt$ (datensaeutze)="":NEXTIG 
stensaetzesdatensaetze-2:CL5:60T0 1090 
1970 LOCATE 1,10: INPUT"Nummer des Feldes 
‚„ nachdem sortiert werden soll"jsfelder 
17980 IF sfelder<ti THEN sfelder=1 ELSE IF 
sfelder>hfelder THEN sfelder=shfelder 
3500 inhalt$(datenzastze)s=LEFT$S(inhaltst 
datensaetze) ‚anf tfelder))+LEFT$tinhalt$, 
Yaurıqge (felder) }+MID$ (inhalt# (Hatensantze 
I, (anf (felder)+laenge {felder) +1} ,„ABStLEN 
(inhalt$ (datensastze) )- (anf (felder)+laen 


gelfelder))}) 








| In unserer Ausgabe Heft 12/85 ist in dem 


Programm „Two Cherry Chaps“ ein Sym- 
bol nicht ausgedruckt worden. Bitte fügen 


3, ZI FRINT grad "@'geschws LOCATE 27,28 


 CSompuhe miß 


Sie die Änderung in Zeile 760 nachträg- 
lich ein und Ihr Programm funktioniert. 


EFRIMT",* 
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Bewerbung als Programmautor 
Name: _______________  _ Vorname: 
| Straße: ————— —— ———— 0 Wohnort: 
| Titel ds Programmes: _—__ _ _ _ 00. Gomputersystem: 
_ Erforderlicher Speicherplatz: KBytes 
- Erforderliche Pheripherie: 


 Ichversichere hiermit, daß ich der Autor des oben genannten Programmes bin undalle Rechte besitze. Ich bin damiteinverstanden, daßSie 
mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 PM pro abgedruckte Seite. 
: Sollte das Programm nicht veröffentlicht werden, bitte ich um Rücksendung meiner Unterlagen. 


Folgende Unterlagen liegen diesem Schreiben bei: 


Kassette: ______ Bikette ________ Dokumentation _ —_—____. Listing: __ — — — — Rückporto: 


Unterschrift des Programmautors: 


Einsenden an: Tronic-Verlag Abt. Programmentwicklung, Landstraße 29, 3444 Wehretat 1 


Auftrag für Gelegenheitsanzeigen in „Gompute mit... 


Name und Adresse 


An „Compute mit ..“ 
“ Trenic-Verlag 

Postfach 

3444 Wehretal 


Unterschrift 


Unter der Rubrik „Kleinanzeigen“- Ich wünsche folgenden Text zu veröffentlichen: 
veröffentlichen wir Gelegenheits- 

anzeigen für Verkaufsangebote, 

Kauf- und Tauschgesuche, Kon- 

iaktaufnahme bzw. Erfahrungs- 

austausch usw. 


Aktuell: 

Unsere Preise für „Kleinanzeigen“: 
Jede Kleinanzeige nur 10,- DM 
Jede gewerbliche 
Gelegenheitsanzeige nur 15,- DM 
(dürfen nicht unter Chiffre erschei- 
nen) 

Eine Veröffentlichung erfolgt nur 


! 
gegen Vorkasse! Zutreffendes ankreuzen 


Kleinanzeigen jeizt suche (© Software suche © Hardware ° OO Tausch © Versch. 
noch pr eiswerter biete an OÖ Software biete an © Hardware O Kontakte O Chiffre 
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% Kleinanzeigen % Kleinanzeigen % Kleinanzeigen % 


| Suche Hardwäre 


tr rt tr Hr +++ + 
Wer verkauft Commodore Flop- 
py-Laufwerk 1541 mit ©-16 An- 
schluß? Zuschriften an: Holger 
Schabio,  Fritz-Goßler-Str. 2, 
8671 Leupoldsgrün. 

+++ +++ ++ +++ +++ 


=>» SUCHE BILLIG! ae 
Floppy-1541 oder 1570H1 

Biete 350 DM oder 280 Fr.!!! 
Suche laufend die neuesten 
Prgr. auf Disk!!! Angebote an: De- 
sarzens Renaud, Ringstraße 56, 
CH-3327 Wyssach, ® 034/ 
453708, (Vorwahl für Schweiz: 
00 41. 


Wer hat billig 16K-Speicherer- 
weiterung für VC-20 anzubieten? 
Bitte melden bei D. Lienau, Fal- 
kenhagener Str. 8, 1000 Berlin 
20. Suche auch Kontakte zu an- 
deren VC-20 und C-64 Besitzern, 
die mir beibringen können Pro- 
gramme zu Schreiben. ich bin 21 
Jahre. 


Suche Sprachmodu! + Software 
auf Kassette + preiswerte Floppy 
für G-64. Tel. 0511/7750128. 


»> Suche Drucker für CPC 464! 
= 02373771075. 


Suche Erweiterungsmodul für 
VC-20. Angebote an A. Weigelt, 


2909 Boesel, Lessingstraße 6. 


v4 


Welcher Drucker kann POST- 
KARTEN bedrucken? 

Suche Dt. und engl. Adventures 
für CPC-464! Bitte melden. Al- 
bert Bähr, Germanenstr. 6, 7470 
Albstadt 15, Tei? 07431/74561, 


Suche für VC-20 32K Erweite- 
rung schaltbar evtl. 6AK. 
Angebote an D. Keiterer, Gem- 
penweg 3, CH-47907 Ettlingen, 
Tel. 061/737697, 


Suche für CPC 464 DRUCKER. 
»EILT»#EILT#EILT»#EILT$EILT 
Frank Sigel, In den Stuben 7, 
7312 Kirchheim-Teck, Tel. 
07021/6724. 


- Durch unseren 
NETELZITE TE 
markt 
le ET 

. eine Vielzahl j 
‚von Lesern! . 


Suche Software 


Achtung :7 Achtung ‘© Achtung 
#* Suche für C-16 und VZ- * 
ir 200 Software. Angebote 
% bitte an Axei Waszynski, ® 
ir Erfurter Str 33a, 2351 
*%k% Trappenkamp. ku%* 


%*%k Commodore 16/116 ** 
Suche Programme aller Art!!! 
Spiele (a. Compute mit), Adven- 
iure, Tips u. Tricks {auch Li- 
stings) usw. Angebote an: 
Andreas Schreier, Zur Tauber- 
auelie 8, 8801 Wettringen, Tel. 
09869/7277. 


»> [> SCHNEIDER CPC 464 Se 
Suche Programme aller Art 
Zinsb., Börsen- und Wertpapier- 
programme, Spiele, Adventure 
etc.) Bin auch am Tausch von 
Programmen interessiert, 

Wer verkauft günstig Zubehör, 
Drucker für CPC 464. Angebote 
u. Anfragen: U. Hallenberg, von- 
Witzieben-Straße 13, 4400 Mün- 
ster. 


Suche Input 64 Cassetten Nr.: 1, 
2,3,4---Zahle 7DM {nur Origi- 
nalprg.) Suche Floppy bis 25 DM 
(1541). 

Suche Original Ghostbusters u. 
A View toakill. 


Suche Spiele fürCPC 464 uC-64 
zum Tauschen. Liste an: Andreas 
Meyer (A.M.SOFT) Dennerstr. 
100, 7600 Stuttgart 50, 


Suche S$prachsyntesizer-Pro- 
gramm auf Kassette fürC-16/C- 
116. 

Tausche gegen 5 Spielprogram- 
me. Schreibt an: - Norbert 
Schmitz, Spanische Schanzen 
10 b, 4134 Rheinberg 4. Außer- 
dem verkaufe ich Computer 
ORIG 1, 16K mit Spiele und Kas- 
settenrecorder für 100 DM oder 
ruft an. Tel. 02843/2969. 


Suche jede Art von Spielsoftwa- 
re für den Schneider CPG 664. 
Biete gute Preisel!! 

Jörn B. Gruhlke, Postfach 1208, 
2270 Wyk auf Föhr Tel.-Nr. 


04681/3444, ab 18.00 Uhr, 


Biete Software 
Au Cö4Soltware Ava 
# Arcade Hallof Fame ID) 49,-- * 
%* Liltte Comp. People (D) 52,90 * 
%#* Kennedy Approach (D) 55, * 
% Fourth Protocol 32,90/49,-- * 
#* Winter Games 33,90 /39,-- 
# The.Goories (X) 34,90 ei 
%* Software schon ab 7,95/11,90 * 


* Hotline: 07307/6230 18-20 Uhr Wr 


%* CS Postfach 1304 7913 Senden # 


*%* SCHNEIDER Software K%* 
* Everyone's a Wally K32--% 
* Frank Brano’s Boxing K 29,90 & 
% Hacker K 38,-- * 
%* Gremlins Kb 
% Jeweils of Babylon K 1990 & 
% Red Moon K 2290 8 
% Supersoftware schon ab 9,90 # 
%* Hotline: 07307/6230 18-20 Uhr * 
%*C5 Postfach 1304 7913 Senden »*r 





SONDERANGEBOT!!! 60 gr.-Pa- 
pier ws Rand perf. 2000 Bi. nur 
DM 39,-. Weitere Angebote ge- 
gen DM 1,- in Briefm, Versand nur 
gegen Vorkasse. V-Kosten DM 
4,-, ab DM 100,- frei. “ 

Fa. Leichtlein, Holzhofallee 32, 
6100 Darmstadt, 


Compuhe mib 


CPC-464. Tolle Textverarbeitung 
plus Adressverwaltung mit deut- 
scher Tastatur für nur 30,- DM. 
Cassetten einlegen und Drucker 
NLQ 401 einschalten, schon wird 
der ges. Inhalt ausgedruckt mit 
Cassettendruckprogramm für 
nur 10,- DM. Lieferung gegen 
Vorkasse plus 2,- DM Porto. 
Hans Thielen, Am Hoverkamp 48, 
4044 Kaarst 1, Tel: 02101- 
604278. 


Schneider CPC - Schneider CPG 
Spiel-undÄnwenderprogramme 
aus Eigenentwicklung für Ihren 
CPC zu zivilen Preisen erhalten 
Sie bei Friedrich Neuper, Post- 
fach 72, 8473 Pfreimd. Fordern 
Sie einfach das kostenlose Info 
an. 


Commodore 16 # Commodore 
Verkaufe Spiele, Tips und Tricks, 
ÄAnwenderprogramme und ganz 
tolle Supergrafiken. Infos ko- 
stenlos bei Hfatteler, Werner, 
4981 Reichersber/Österreich. 


Supertape für C-16/116/Plus 4. 
Cassetten Save- und Laderouti- 
ne. mit 3600 oder 7200 Baud. 
Cassette mit Bed. 15 DM. Tel.: 
02162/54335. 


C-16/C-116/Plus 4 Superspiele! 
Info 1 und 2 gegen Rückporto bei 
Hannes Kaltenbach, Priel- 
mayerstr. 16, 7990 Friedrichsha- 
fen 1. 


VC-20 + Datas. + 20 Spielen + 
Tasche + Staubsch. + Listings. 

C-64 (fastneu) + Datas. + 25-30 
Sp. + Joy. + Hefte mit Listings. 

C-16 (fast neu) + Datas. + 10-20 
Sp. + Joy. + Listings. 

ATAR! 2600 + Joy. + 2 Spielen, 
Verkaufe an Meistbietenden. An 
D. Lienau, Falkenhagener Str. 8, 
1000 Berlin 20. 100% Antwort für 
Jeden. 


SCHNEIDER-CPC v;; Diverse 
Programme in Originalverp. mit 
Handbuch auf Disketten 3” bzw. 
Cassetten wegen Systemwech- 
se! günstig abzugeben, Liste an- 
fordern bei W Kiefer, PR. 44, 7801 
Umskirch. 
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% Kleinanzeigen %* Kleinanzeigen % Kleinanzeigen %* 


- VC-20 PROGRAMME JV: Privat. 
; Textadventure Schloßzauber + 
Psychaterspiel - beides 
: Deutsch = zusammen auf Cas- 
sette 10,-- DM. 
j Volker Coeri, Söllingstr. 4-8 
4300 Essen 1 


. Kompletie Liste gegen Rück- - 


porto! Resettaster 5,- DM VC-20 

“ Lexikon. Reparaturen von Tasta- 
turen (Mech). Suche Spiele + 
: Programme bis 16K. 


. Wir haben Spitzensoftwarel!! 
Für euren Schneider u. Commo- 
dore. Achtung! Der Software- 
Kenner „Wintergames“ für 
Schneider ist da! Preis: 39,90 
DM, Dictionary für Schneider der 
Dolmetscher 20.000 Stichworte 
englisch - deutsch o. deutsch - 

. englisch auf 3" Disc. DM 69,90! 
Gratiskatalog anfordern! HP- 
Soft, Abt. D. 8240, Berchtesga- 

. den, Hindenburgallee 3. 


2D- u. 3D-Grafikpaket CPC 464 
"26 Grafikprogr. Basic, Kassette 
DM 50,- incl. MWSt. Portofrei. Al- 
le Progr. offen. Definition eigener 
Objekte. Animationsprogr. von 
L.ufffahrz, u, Techn. Objekten. 
“ Auch Einzelprogr. Liste 80 Pf. Der 
Hit für Designer u. Grafik-Fans. 
Grafik-Software Fred Wagen- 
knecht, 10060 Berlin 44, Ilsestr. 1. 


Funkfernschreibprogramm für 
CPC 464 (RTTY}. Soft- und Hard- 
. ware incl. Konverter, AFSK, Fest- 
- text-, Drucker-, Vorschreib- und 
Empfangsspeicher Baudot u. 
ASKI bis 300 Baud. Machen Sie 


“Ihren GPC zum prof. Fernschrei-- 


ber. Anwendung z. B. beim Ama- 
- teurfunk. Info kostenios bei Ste- 
fan Peim, DL7AGQ, Friedrichsru- 
her Str. 32, 1000 Berlin 33, Tel, 
020/8242943. 


, Wir haben altes in der Tasche! 
. Das komplette Ablageprogramm 
; für alle wichtigen Datenträger. 
‘ Taschen, Boxen, Einlegemap- 
pen und vieles mehr in alten Grö- 
Ben und Arten. Informieren Sie 
sich über die Ablagetechnik von 
Morgen bei: H. Becks, 4290 Bo- 
“ cholt, Postfach 10, Tel. 028717 
7384, 
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%* CPC 464-664 % C-16/116 % 
Achtung! Keine Programme? Wir 
tauschen und verkaufen Top- 
spiele zu fairen Preisen. Listen, 
Infos u.s.w. gegen 1,50 DM, Rück- 
porto. Arfragen bitte an: Carl 
Bolt, Harbortweg 5, 4770 Soest, 
Tel.: 02921/61851 oder: Roland 
Fuchs, Blanckenageiweg 9, 
4770 Soest, Tel.: 02921/43592. 
%* CFC 464-664 # C-16/116 * 


Verkaufe ca. 500 Topprog. auf 
Disk {Winterg., Hacker etc.) zu 
absoluten Tiefstpreisen fürC-64. 
Außerdem C-564, 1 Jahr alt 300,- 
und Akustikkoppler, TRS-80 inkl. 
RS-232 u. orig. Teletherm 300,-. 
Stefan Stehle, Postlagernd. 
7888 Rheinfelden. 


> 


CPC 464 Vokabeltrainer! 

‘ Das Programm enthält 
viele Vokabeln und über 
100 unregelmäßige Ver- 
ben. Sie können noch be- 

: liebig viele Vokabeln ein- 
geben und abspeichern. 
Programm auf Kassette 
nur DM 19,-. Zu bestellen 
bei: Thilo Schray; Alten- 
bachweg B/t, 7120 Bietig- 

x heim-Bissingen. iR 
Ahr 


1, 
Si 


2 20 22 22 


DL 


+ 


Commodore 64 VC-20 C-16 
Fibu V1.4@ Ek-Vk @& Foto-& Film- 
archiv ®@ Lotto @ Videoarchiv ® 
Adressino @ Tabeilo @ Digitalo ® 
Rechengenie ® Gehimjogging®@ 
Spiefepaket 1 ® Supergenie ® 
Kartei@ KFZ-Programme @ Biblo 
® Katalog gegen 80 Pf-Briefmar- 
ke Computerservice T. Hofstede, 
A.d.Windmühle 8, 5010 Berg- 
heim 5. 


CPC-4641 Verkaufe die Grafik 
Adventures „Das Geheimnis der 
4 Juwelen“ und „Smugglers Co- 
ve“. öspielstand kann gespei- 
chert werden. 40 DM in Schei- 
nen an: Jochen Koch, Haustr. 23, 
7401 Pliezhausen, Tausche 
auch Spiele auf Kassette, 


| Tausch 


En —— zu nn 
+ VC-20 + VC-20 + VC-20 

+ Tausche VG-20 Spiele ge- 

+ gen andere Software für 

+ VC-20; Marko Görg, inden 

+ Wingerten 48, 6100 Darm- 

+ stadt 23. 

44 r 44 rt + HH +++ 





Schneider CPC 464; Tausche 
verschiedene Spiele und Da- 
teien. Alles nur auf Kassetten. 
Bitte Listings von Spielen schik- 
ken an: Frieder Kanitz, Rotweile- 
rin 22, 7440 Nürtingen. Alle Brie- 
te werden beantwortet. 


CPC-464  CPC-464 CPC-464 
Tausche CPCG-464 super Soft- 
ware. Tausche meine Program- 
me in ganz Europa per Post. Also 
bitte schreibt an: Timo Widmann, 
Achalmstr. 15 in 7446 Oberbio- 
hingen. 
CPC-464 CPC-464 CPC-464 


© ® Tausche und verkaufe @ @& 
Profi-Software für Commodore 
15 z. B. Flugsimulator: Defence 
usw. Tel. 02181/63947 von Jür- 
gen Tenten. 








Biete Hardware 


kr GCGbähadwre Kar 
%* MPS 801 279,- Mon. 1702 648,-- * 
% Dataphon S21d komplett 279,— %* 
% Disketten No Name 1D 1081. 25,— #* 
% Disk Box f. 100 Disk 5,25” 27, * 
%* Quickshott 11,90 7 V 29,90 * 
* Quickshot V 24,90 / IX 39 * 
%* Disklocher 19--# 
% Hotline: 07307 62 30 18-20 Uhr # 
% 65 Postfach 1304 7913 Senden #* 


i ANGEBOT DES MONATS 
Verkaufe G-116 + Datas + Joy. + 
15 Super-Programme (Zodiac, 
Olympic Skier, Ace, Tom, Grand- 
master = Schach, Spectipede, 
Squirm, Flight Path 737, Musik- 
comp, usw.). 1 Jahr alt aber neu- 
wertig. Neupreis ca. 550 DM. Für 
350 DM zu haben. Schreibt an 
Frank Köppel, Güörlitzerstr. 1, 
4709 Bergkamen. Bitte Tel.-Nr. 
angeben. 





Compute mif 


t Jahr alt. Schneider CPC 464 
mit Farbmonitor Schneider 
Drucker und Floppy, NP 3094,- 
DM für 2200,-; evtl. Rechner + 
Monitor für 898,- DM. Tel. 
06171/4500 oder 5 3897. 





Commodore C-16 mit Datasetie 
billig zu verkaufen. DM 250,—. 
Gleich schreiben an: Bernd Pol- 
ster, Fr.-Ebert-Str. 14, 8570 Peg- 
nitz. 


Akt VERKAUFE kr 
C-116 + Datasette und 9 Wochen 
alten Printer Plotter 1520 - DM 
450,-. An Klaus Plonner, Tel. 
05962/2225, 4471 Dohren, 
Herzlakerstraße 10. 


Verschiedenes | 


Schneider CPC CLUB Bayreuth 
Wir suchen Mitglieder für unse- 
ren Club; Softwaretaäusch und 
Sammelbestellungen; INFO- 
Tausch; Clubzeitung 3# schreibt 
an: Singh, Achim, Pottaschhütte 
10, 8580 Bayreuth, Tel. 0921/ 
53205. 

“ah 664;464;:678 aa 


Suche aite „Compute mit"-Hef- 
te, die noch im # %* ROESKE- 
VERLAG # #* erschienen sind. 
Suche außerdem Software für 
den VC-20 (Tausche auch) Liste 
oder Angebote an: Ferdinand 
Hübers, Crosewick 67, 4426 \Vre- 
den, Tel.: {(02564) 4726. 


Wohnt nebenan ein CPC-Profi? 
Bin Einsteiger (54) und suche 


Kontakt u. Erfahrungsaustausch, 


Claus Piotrowski, Am Sanders- 
hof 31, 4350 Recklinghausen. 
Ruft doch mal an. Tel. 02361/ 
498868. 


Hr Cc-16 # C-16 a C-16 a C-16 % 
Suche für den Commodore G-16 
die Spielanleitung oder einen 
Lösungsweg für das Spiel „Cata- 
combs“. Bitte wenden an: K. Ba- 
ran, 4100 Buisburg 1, Lillen- 


thalstr. 20a, Te!. 0203/312288. 





u5 


v6 


programme 


Diamond-Hunter 


für Schneider CPC a 


VIEELIEIESEIE in den Höhlen der Anden 


Steinschlag-Harry ist bei seiner Arbeit in 
einer Diamantenmine in einen verborge- 
nen Schacht gefallen und entdeckt ein rie- 
siges, unberührtes Diamantenvorkom- 
men. 


Geblendet von soviel Schönheit und in der 
Hoffnung der reichste Mann der Welt wer- 
den zu können, beginnt er ohne jegliche 
Vorsichtsmaßnahme zu berücksichtigen, 
mit der Bergung der Diamanten, 


Doch schon nach kurzer Zeit muß er fest- 
stellen, daß das gar nicht so einfach ist. 
Das Berühren der umherliegenden radio- 
aktiven Steine führt sofort zum Verlust ei- 
nes seiner drei Leben. Auch herabfallende 


Steine oder Diamanten verletzen Harry 
tödlich und darüberhinaus werden die 
Diamanten noch von einem Höhlenmon- 
ster bewacht, 


Diese Boulder-Dash-Variante hateinen ei- 
genen Editor mit dem man Spielfelder ver- 
ändern oder neu erstellen kann. Diese 
Spielfelder können natürlich auch abge- 
speichert und eingeladen werden, wobei 
die aktuelle Hi-Score-Liste mit abgespei- 
chert wird. 


Die Steuerung der Spielfigur und des Cur- 
sors beim Editor erfolgtüber Joystick oder 
über die Cursortasten. 





Hinweise zum Abtippen: 


Teil 1: 

Sie können die Zeilen 780-1310 weglas- 
sen. Sie müssen sich dann jedoch ein ei- 
genes Spielfeld aufbauen und einladen. 
Bitte beachten Sie, daß die erste Zeile die 
Zeilennummer 10 und die letzte Zeile die 
Nummer 1560 sein muß. 


Teil 2: 

Die erste Zeilennummer muß 5 lauten. 
Das Programm müssen Sie unter dem Fi- 
lenamen „HUNTER 2“ abspeichern. Beiei- 
nem Neustart muß „GOTO 5“ verwandt 
werden, da sonst die Variablen gelöscht 
werden. 


In Verleih der" 


DATA 3, "AS-Software Company" 


GOSUB 230:66T0 2706 


BORDER INT{RND#iB) +4: IF INKEYS<>" " 
THEN RETURN ELSE IF zp=0 THEN RETURN ELS 


280 FOR t = i TO 131:READ solt,O)eNEXT t 


0,142,0,179,0,119,0,179,0 


DATA 89,0,95,106,119,106,119,134,142 


310 DATA 179,0,142,0,119,0,142,0,89,0,11 


320 DATA 71,60,687,60,71,69,67,60,71,60,6 


330 DATA 89,71,80,71,89,71,80,71,89,71,8 


i6 GOTO 30 180 DATA 1," 
il 190 

1.2. RRHHBRRIRRRIHHHHIH HIHI HIHI HEHE 200 ı 

15 " * zi0 3 

14" BIAMOND HUNTER * 220 EVERY BO 
15 H * 230 

1& " {C) 1985 by Androneda-Soft * 

17" * E 1550 

18" written by Dliver Heggeibacher # 240 

19 * z50 '‘ Melodie »inlesen 
20 " for TRONIGC * 260 " 

z2ı " * 270 DIM s0(144,1) 
22 RR HIHI HH 

DE 3 5 290 DATA 179, 
24 ; TEIL 1 500 

25 a „134,142,157 
30 PRINT:FRINT "Please wait!" 

40 DEFINT a-z 7,0 

50 ' 

% ' Hi-Score Tabelle 7,60 

vo 

80 DIM hi (10) ,hi$(10) 0,71 


RESTORE 100: FOR t=1 TO 10ıhi (t)=1100- 
t#1005READ f=zREAD n$:hi$ (tt) =CHRE (15) +CHR 
SCHI FNE+CHRE (ISI+CHRF (DI ENEXT + 

100 DATA 3,"Vorsicht Steinschlag" 

110 DATA 2,"Es wirken mitr" 

120 DATA 1,"Bteinschlag Harry" 

150 DATA 1,"i(mit 2 Double)" 

140 DATA 1,"Diananten Monster" 

150 DATA 1,"radioaktive Steine" 

150 DATA 1,"154 Diamanten" 

170 DATA 


Compute mi 


340 DATA 106,89,95,89,106,89,95,89,106,B 
9,95,87 

350 DATA 127,0,159,0,106,0,127,0,89,0,10 
6,0. 


360 DATA 80,71,80,89,95,89,95,106,119,10 


-6,119,134 


370 DATA 142,0,106,119,127,119,127,142,1 
59,142,159,179 

380 DATA 190,179, 190,213,239,0,119,127,1 
19,0,190,0 

370 DATA 179,0,119,0,190,0,119,0,213,0,1 


2/86 


2/86 


27,0 

400 DATA 119 

410 FOR t = 1 TO 131:READ sott,i)ıNEXT t 
420 DATA 0,0,0,0,0,0,0,0,0,0 

430 DATA 0,0,716,0,548,0,715,0,478,0,71& 


o 

+ 

440 DATA 358,0,379,426,479,426,478,536,5 
' 68,478,568,638 

450 DATA 358,0,284,0,239,0,284,0,179,0,2 
39,0 

460 DATA 142,119,134,119,142,119,134,119 
„142,119,134,119 

"470 DATA 179,142,159,142,179,142,159,142 
„179,142,159,142 

: 480 DATA 213,179,190,179,213,179,190,179 
. 43213,179,190,179 

© 490 DATA 253,0,319,0,239,0,319,0,190,0,2 
39,0 


: 500 DATA 179,159,179,190,213,190,213,239 


253,239,253,284 

510 DATA 319,0,239,253,284,253,284,317,3 
59,319,358,379 

520 DATA 4264,3797,425,478,319,358,379 ,358 
‚>319,0,64B,0 

530 DATA 47B 

=s40 ° 

550 ' Zeichen definieren 

50 ' 

570 SYMBOL AFTER 240 

580 SYMBOL 240,18,55,80,55,20,158,40,104 
570 SYMBOL 241,16,56,16,124,16,16,40,40 
600 SYMBOL 242,16,54,20,56,80,16,40,44 
510 SYMBOL 245,24,102,202,145,178,170,10 
2,24 

620 SYMBOL 244,0,16,55,105,56,16,0,0 

&30 SYMBOL 245,85,170,85,170,95,170,85,1 
70 

640 SYMBOL 246,32,32,255,4,4,4,255,32 
&50 SYMBOL 247,0,0,0,0,0,0,0,1265 

&60 SYMBOL 248,4,10,17,54,100,120,112 
570 SYMBOL. 249,0,0,50,42,22,28,0,0 

&80 SYMBOL 250,0,28,34,78,585,58,24,0 

670 SYMBOL 251,60,82,165, 211,219 ,111,61 
700 SYMBOL 252,652,07,195,131,153,154,94, 
32 

710 SYMBOL 253,126,130,129,129,129,129,6 
6,60 

720 SYMBOL. 254,125,203,18,32,15,8,211,12 
& 

730 SYMBOL 255,60,125,70,125,102,90,126, 
217 

za 

750 '‘ Bilder einlesen 

TEO ° 

770 DIM bild (32,23,6,1},ab 6) „» (20) ,ylZ 
O) ,nR21(20) ,„y21(20) „abf (20) 

780 FOR t = 6 TOD i 

790 FOR i=1 TO 23:READ a f 

800 ps=0:FOR k=1 TO S2ıa=VAL (MIDS(a$,Kk,1 
Y3abildtk,i,t,OJ=aıbildtik,i,t,l’=arps=ps 
+a:NEXT krREAD psZı IF ps<>ps2 THEN PRINT 
:PRINT"Fehler in Zeile "5840+t*240+1 #101 
END 

810 NEXT i,t 

820 abt0)=lsabfil}-1 


Gompuhe mik 


programme 


830 ı 

840 ° Bildi 

850 DATA Ot1111124111111141111111221 1111 
820 DATA 1141111311111111111111122211111 
870 Dara 1112211411222221111211113311111 
230 DATA 1111221111113311111111112210221 
830 DATA 1111311121 141111111 111111111181 
30 DATA 11111114111100000001 11112111111 
216 DATA 44444444444444494444111221 11111 
220 para 111111141141111111111411333111211 

4 


730 DATA 11122111111125211131111111113511 


930 DATA 1112311121122122111111111111111 
930 Data 11121112111131132111 111111811111 
so nata 1113111111111111111111111111111 
970 Data 12211121111 11111111111 111111111 
980 DATA 1131111111144444444444444444444 
330 DATA 11111131211100000003330000000000 
1800 DATA 1221123111112211111131112211111 
1010 DATA 113111111111311111111111311211 
1030 DATA 111221121111112211112111111311 
1030 DATA 111131131111111311113112211111 
1040 Data 4113111111111311111111211311121 
1030 DATA 11151111112211111211 1111111131 
1020 DATa 1111311111131121114111122311111 
1070 DATA 411241111111111111111111111111 
11,32 


10890 Bild 2 

1090 DATA 000000221111111211122212222221 
1180 DATA 112221311112222311111112311311 
11lo bara 113112111111311111111111111122 
1120 Data 4111133131111 3111123 1131111111153 
1130 Data HAAUAGGAABAAZAAAAZZAAAAAGAA 1 
1130 Data 1141111111 1111i211111111214121 
1120 Dara 111122211111111511112111314151 
1120 Data 11111311222111113111311 1114112 


97 


o8 


Programme 


11,43 
1170 DATA 
11,43 
1180 DATA 
22,43 
1190 DATA 
13,39 
1200 DATA 
11,16 
1210 DATA 
00,102 
1220 DATA 
21,41 
1230 DATA 
31,43 
1240 DATA 
11,42 
1250 DATA 
11,44 
1260 DATA 
11,46 
1270 DATA 
11,47 
1280 DATA 
11,42 
1290 DATA 
11,36 
1300 DATA 
11,36 
1310 DATA 
11,10 
1320 
1330 
1340 
1350 
1360 ' 
1370 
1380 
1370 
1400 
1310 
1420 
1430 ' 
1440 ' 


122111111311111111112111214113 
115111111111111311113111314111 
4112i11141111114111111111114121 
1111109060000000000900000004131 
1221444444444444344343444444121 
113113111111111111112111114122 
1111113132111111111133112114131 
111111313111222111111113114111 
111111112111132111112122113122 
112111115111111111113113213123 
113121111122211111112111324122 
111131111113111111113111121123 
41111114 11111i1111111111131212 
411111144111111312113111111313 


DOO000000000000000000001 1111111 


’ Schriftfarben und 
" Husllkurven definieren 


INK 0,0: INK 1,0: INK 2,0: INK 3,11 
ENV 142472151, 0151,12, 71,10 

ENV 2,1,15,1,15,-1,10 

ENV Sy11y,1g1y11y-1,6 

ENT 1,10,5,1,104-5,1 


Einladebild 


1350 FAPER Os MOBE 1rFüR t=1 TO 20: a$8=INK 


"L:LDCATE 
rt" 


1470 LOCATE 15.233 PRINT 


"EY$iNEXT tiızp=i 
1450 PEN S:L0CATE 1,25: PRINT 
nter "sLOCATE 27,25: PRINT 


"Diamond Hu 
"Andromeda-Boft 
11, 1:PRINT "Press Space to abo 


"Please wait!" 


1480 FOR t=0 TOD 225 STEP ZıFOR i=0 TO i5 
STEP Zıa=TEBTtt+H41l8,i): IF a=3 THEN PLOT 


7a+t*2+i 
Ze DRAWR 2 


‚320+1#2,1:DRAWR 4,03 DRAWR 0,2, 
‚OePLOT 7&+t82+1 „322+1 #2, 1: DRAW 


R 4,0:DRAUR 0,2,21DRAUR 2,0 


1470 NEXT 


1509 LOCATE 13,8:PEN 2:PRINT 


N T 8:1" 


i,t 
"PRESE 


1510 FOR t=G TO 223 STEP 2ı FOR i=0 TO 15 
STEP Z2ra=TEST (t,i)s IF a=3 THEN FÜR k=0 


TO 7 STER Zew=i#4+kı PLOT 26+:#2.5+wW/2,15 
O+w,1-ik MOD 4=0):DRAWR 4,0:5NEXT k 
1520 NEXT i,t 


1530 LOCATE 11,1:PRINT SPACES (20) 7 LOGATE 


Compute mif 


1,251 PRINT SPACEF (40) INK 3,11,17:LDCA 
TE 14,23:1PEN Z:PRINT "STILL LOADING" 
1540 F=REMAIN (0) ı BORDER 17: LOCATE 1, 1 
1550 INK 1,11rINK 2,24:4PEN 2 
1550 CHAIN MERGE "hunter 2",5,DELETE 10 


-1560 


“ Diamond Hunter — Teil 2 


#4 


GOTO 2770 


SONFG 


x 
10 ° 
20 
30 * 
30 LOCATE 3,24: INPUT "Mit welchem Bild w 
ollen sie beginnen 10-65) "a 
SılF WALtas)I<i AND asc>"0") OR VALlas)> 
& THEN 430 

50 b=eVALtası-1 

&0 IF abib+1)=0 THEN 40 


SPIEL 


Bo ' 
90’ 
100 CLSSLOCATE 1,11PRINT CHRS$ (150) 4 STRIN 
G$132,154) ;CHR$(158) 3 STRINGS$ (5,154) I CHR$ 
(156) 35 
t10 FÜR t=2 TO 24:PRINT CHR$ (149) ı LOCATE 
34,t:PRINT CHR${149) 3 STRING$ (5,32) I CHR$ 
(1A9)5:NEXT t 
120 PRINT CHR$ (147) 3 5TRING$ (32, 154) I CHRS 
(155) ; STRING$ (5,154) 3 CHR$ 15335 
130 WINDOW#1,2,33,2,24:1WINDOW#2,35,39,2, 
24 
140 
2,0 
150 
150 
170 
180 
170 
200 
210 
220 
230 


Bildaufbau 


PAPER#1 Or CLS#1: PAPER#2, 1: CLS#2: PEN# 


sc=0:)lives=3 

zzlıyslıxzzalıyZeilsaustl 

SPEED INK 25,25 

b=b+1 

IF b>4 THEN b=0 

IF ab(b)=0 THEN 150 

WINDOW SWAP 0,1 

FOR t=0 TOD 205 abF (t)=O: NEXT t 

LOCATE 1,1: v=0sdm=0: dm2=0 

240 FOR t=1 TO 23:5FöR i=1 TO 32 

250 a=bildti,t,b,03:sIF a=0 THEN PRINT " 
"1:G0T0 300 

260 IF a=1 THEN PEN i:PRINT CHR# (245) 316 
BTO 300 . 
270 IF a=2 THEN PEN 1sPRINT CHR$ (243) 5:8 
OSUS S10:60T0 300 

280 IF a=3 THEN PEN 3:PRINT CHRS (244) 5 :d 
mn=dmntisEOSURB 3104+G50T0 300 

290 PEN ZıFRINT CHR$(246)3 

300 NEXT i,t:50T0 350 

310 IF t=23 THEN RETURN ELSE IF bildtli,t 


+1,b6,0)<>0 THEN RETURN ELSE abf (v)maıniv | 


Jasisw2lwv)siesyiviet+rlıyZiv)=eteivzyv+lilF v> 
20 THEN v=0 

>20 RETURN “ 

330 zeit=150:zu=0: ende=01 m =32: my=25ımx2 
zn smyZenyimon=i 


2186 


2/86 


340 za=0 

350 LOCATE#2,1,3: PRINT#Z , "Score":LOCATE# 

2,1,Bı PRINT#2,"Time"s LOCATE#2,1,15: PRINT 

#2,"Lives" 

350 LOCATE#2,6-1ives,15:PRINT#2,STRINGS 
lives,241) 

370 FOR t=0 TO 15 STEF ZıFOR i=0 T0 155 

TEP 2:PLOT i+18,:+3589,- {TEST (i+624-lives 

#1&,6+144) =0) #2ı PLOT i+424-lives#lö,t+14 

4,1:NEXT i1:50UND 1,200-t:#8,1,7ıNEXT t 

380 PEN 2:LOCATE 1,1:PRINT ECHR& (22) +CHR$ 
(1: LOCATE 32,23:3PRINT CHRE$ (25533 1 LDCATE 
1,1:PRINT CHR& 122) +CHR& 0} 

390 EVERY 50 GOSUB 950 

400 EVERY 13,1 BOSUB &30 


410 

420 ' Herabfallen der Steine und 
4309 ' 

240 Diamanten 

450 


450 FOR zv=0 TO 1 STEP O:za=za+tlıIF za>2 
6 THEN za=0 

470 IF ende=1 THEN enda=0:r=REMAIN O)+RE 

MAINCLHISWINDOW SWAP 0,1:60SUB 1450: G05UR 
1350: 505UB 130046070 170 

450 IF ak=1 THEN r=REMAINELI+REMAINIOJIG 
GCTO 1070 

490 IF abftza)=0D THEN e=za ELSE zv=l 

500 NEXT zv 

S10 guex (za)ıyyayiza)ıquzaxZiza)sgyZayzt 

za) 

3520 DI:LOEATE 9x2,9yZıPRINT " "g:LOCATE 
GX,Qyı PEN 1-(abf (za)=3)#2ı PRINT CHRSt241 

+abf (iza))y 

85350 bildtgx2,gy2,b,Ö)=0:bildigx „gy,b,D)= 

abf (za)ıEi 

540 DIıilIF gu=x AND gy=y THEN r=REMAIN(O) 

+REMAIN{13:EIsGGOTO 1090 ELBE EI 

550 IF mon=1 THEN IF geeme AND gy=my THE 

N GOSUB 12409 

550 a=zbildigx „‚gy-2,b,Ö0)ılIF a=2 OR a=3 TH 

EN DIı IF abf (e)=0 THEN abf (e)=aıx (e}=grı 

„2te)zgsıylel=gyZıy2te)=gy2-lıEI ELSE GO 

SUB 1040; 50T0 550 

570 IF qgy=23 THEN 590 

580 a=sbild(gx ,„gy+1,b,0ı IF a=0 ORtx=gx A 

ND y-i=gy)THEN yiza)zgy+iıyZtza)=gy:GOTD 
460 

590 abf (za)=0:e=za:50UND 132,0,0,0,2,0,3 
1:50T0 4350 

500 

io * 

620 ' 

630 IF x=mx THEN IF y=my THEN IF mon=i T 

HEN ak=1:r=REMAIN{1)S RETURN 

640 IFCINKEY(O)>-1 DR INKEYt7ZI>-I)AND y 
»1 THEN yzy-11au=1:50T0 270 

650 IF tINKEY(1)>5=-1 OR INKEY(75) 3-1) AND 
»<32 THEN »=x+11au=2:60T0 490 

#60 IF CINKEY{Z3>-1 DR INKEY(7EIF-1) AND 
y<23 THEN yry+lıau=lı5OTO 5970 

670 IF (INKEY(BI>-1i DR INKEYt74)>-1) AND 
x>i THEN x=x-1ltau=0:60T0 &#0 

490 IF x=gr AND y=gy THEN 7106 


benagen der Spielfigur 


programme 


870 IF bildix,y,b,0)=3 THEN sc=sc+Sıdm=d 

mlıdm2=dm2+1150UND 136,284,0,0,3:bildi(x 
‚Y,65,0}=0160SLB 870 

710 IF x=x2 AND y=y2 THEN ve=ve+l:elIF ve> 
5 THEN ve=0:60T0 780 ELSE RETURN 

736 IF bild(x,y,b,O)=4 THEN x=ex2: y=yZıRE 

TURN 

740 ve=O 

750 SOUND 1,3009,2,& 

780 c=bildix2,y2-1,b,0):IF c=2 OR c=3 TH 

EN IF y=y2+1 THEN FOR t=0 TO 20: IF abf tt 
Jec AND xit)=x AND ytt)ayZ2 THEN 755 ELSE 
NEXT t 

7&1 IF c=2 OR c=3 THEN IF abfte)=0 THEN 

abf (e)ncıx te)xZın?le)axlıylelsyZry2te)- 

y2-1 ELSE GDSUB 1040:G0T0 7&1 

7&2 IF c=2 OR c=3 THEN IF za<s2i THEN IF 

abf (za}=0 THEN za=e 

765 IF bildtx,y,b,0)=2 THEN ak=1:r=REMAL 

NEID) A RETURN 

770 IF x=1 THEN IF y=1 AND zu=1 THEN LÜC 
ATE 1,1:2PRINT CHRE# (22) +CHRE (1) +CHR$ 1241) 
+CHR$ (22) rCHRS$ (0) 1 ende=1 

780 IF bild(x2,y2,5,0)=0 OR bildix2,y2,Bb 
„O)=1 THEN LDCATE »2,y2sFRINT " "gebildt 
x»2,y2,6b,01=0 

7970 xZmHıyaay 

800 IF ende=1 THEN 8530 

810 LDEATE x,y:PEN Z2ıPRINT CHRS$(240+au)$ 
820 IF zu=sö THEN IF »>1 OR y>1 THEN zusl 
ı LOCATE 1,1:PEN 5:PRINT CHR$ 1254) 

8356 RETURN 

40 
850 ' 
840 " 
870 FÜR t=O TOD Rh IF sxZ2tt)=x THEN IF yal 
t)=zy THEN IF abftt})=5 THEN abf (t)=0 

880 NEXT tıRETURN 


Diamant in Matrix enthalten ? 


5890 RETURN 

200 ' 

10 ’° Zeit und Punkte anzeigen 
920 

930 * und Monster bewegen 
740 ° 


950 zeit=zeit-i: IF zeit=0 THEN akelır=RE 
MAIN {OF +REMAIN CHI RETURN 

9&0 SPEED INK zeit/160+10,zeit/10+10 

370 LOCATE#2,1,5: PRINT#2 ,USING"HHHHR" Je 
LOCATE#2,3,10: PRINT#2 , USING" ###"jzeit 
80 IF mon=0 THEN RETURN 


790 mama + em) = Or dm) amyeny+ iyimy)=-(y> 


my)sDISLOECATE mx<2,myZ2s a=sbildtimx<2,my2,b,0 
)eIF a=1 THEN PEN 1:PRINT CHR$ (245) ELSE 
IF a=2 THEN FEN 1:PRINT CHR$ (243) J ELSE 

IF a=35 THEN PEN 3: PRINT CHR$(244) 3; ELSE I 
F a=4 THEN FEN Z:PRINT CHRFTZ4&) J3ELSE PR 
INT" "n 

23000 SOUND 130,319,20,5,0,1:LDEATE 1,1:F 
RINT CHR& (22) HCHR# {19 s LOCATE ma ,myıPEN 2 
sFRINT CHR#& (255333 LDCATE 1,1: PRINT CHREG 
22) +CHR$ (OO) rEIı mx 2=ema ı myZemyı RETURN 

1010 ' 
1020 ° 
1030 * 
10409 FOR t=0 TO 20: IF abftt)=0 THEN west 


Freie Matrix suchen 


Gompute mib 


60 


„Programme 


RETURN 

1050 NEXT tıabf (za) =0: e=zaı RETURN 
10650 
1070 ' 
1080 ’ 
1090 SOUND 1,0,0,0,2,0,10 

1100 LOCATE »2,yZıPRINT" "5 

1110 PEN Zi FOR t=i TO SıLDCATE x ,„yıPRINT 
KOR#E+ZABI FOR i=1 TO 500rNEXT irNEXT 


Spielertod 


1120 vaxıw=zyıGUSUB 11307 ven ıwemyı SOSUB 
11304160T0 1170 

1130 LOCATE v,wiFRINT" "RILDCATE vw 
1140 asbildtv,w, b,0O)szIF a=i THEN PEN 1ıP 
RINT CHR$(245)j 

1150 IF a=2 THEN FEN 11PRINT CHR$ (243) 3 
11580 IF a=3 THEN PEN Sı PRINT CHRS(244)3 
1170 IF a=4 THEN PEN Zı PRINT CHR$ (246)3 
11806 RETURN 

1185 FDR t=0 TO 20: IF abf (t)=0 AND bilde 
»(t),ytt)+i1,b,0)=0 THEN yit)ayit)+tlıyztt 
Izy 

1187 NEXT t 

1190 zeit=150rmaon=Iıx=lıxr2=elsy=lıyZelızu 
=01 ak=01 my =32ı my=23ı ma Zum ımy2amyslivese 
lives-1:IF lives(i THEN 2370 

1200 GOTG 370 


1210 
i220 ' Stein oder Diamant ist 
1230 
1240 auf Monster gefallen 
1250 


1240 SCUND 1530,0,0,0,2,0 „Bı Dis vnx ewamyt 

PEN 2: FOR t=i 70 SıLOCATE vıwiPRINT CHR#$ 
(t+248) 3: FOR i=1 TO 1001NEXT irNEXT tı6G0 

SUB 1130: mon=dı Elı 5cC=sc+303 RETURN 

1270 

1250 * 

1290 *' 

1300 FOR i=1 TO ZIsFOR t=1 TO SZıbildik, 
i,6,O)=bild(t,i,b,i1)aNEXT t,i 

1310 RETURN 

1320 

1330 

1340 

1350 IF dm<>0 THEN RETURN 

1350 PEN 2:LOCATE 3,104PRINT "Alle Diama 

nten eingesammelt!" 

1370 LOCATE 11,1S:ıPRINT "Bonus ı "+dm2#5 

1380 se=sc+dm2#5: LDCATE #2,1,5:PRINT #2, 

USING "Hk" ısc 

1370 RETURN 


Spielfeld erneuern 


Alle Diamanten eingesammelt 


1400 s 

14160 ' Melodie fuer beendete Runde 
taRo * 

1430 ' oder HI-Score 

1440 ' 


1450 FOR t=0 TD iI2:1F sott,O)<>O THEN SO 
UND 129,501t,0),0,0,1 

1450 FOR i=1 TD 220: NEXT isNEXT t+ RETURN 
1470 ° 
1480 ' 
14970 ' 
1506 CLS:ıWINDOW#1 ,1,32,1, 231 PAPER#1, Or: CL 
S#i 


Spielfelder erstellen 


GSompute mi 


1510 LOCATE 1,23 

1526 WINDOW#2,1,40,24,25: PAPER#2 1:1 PEN#2 
„OrtLS#2 

1550 WINDOW #3,33,40,1,23:PAPER #3,1:PEN 
#3,2ıCL9 #3 

1540 WINDOW SWAP G,1 

1550 INPUT #2, "Welches Bild wollen sie a 

endern (0-6) "br 

1556 IF bnto OR bn>& THEN 1550 

1570 CLS#2:LOCATE 1,1:5PEED INK 25,25 
1580 IF ab(bn)=0 THEN 2c1=1:6G0T0 1660 
1590 FOR t=1 TO 23FOR i=1 TO Z2:z=bildt 
i,t,bn,O} 

18006 IF z=0 THEN FRINT " "7416070 1650 
1810 IF z=1 THEN PEN 1:PRINT CHR$ (245) 51 

GOTD 1850 

1520 IF z=Z2 THEN PEN i:PRINT CHRE (24% 11 
GOTO 1450 

1850 IF z=3 THEN PEN 3:FPRINT CHR$(244) 33 
GOTD 1550 

1530 PEN 23PRINT CHR& (245) 3:G0T0 1650 


1550 NEXT i,t 

1850 WINDOW SWAP 9,3:LDCATE 1,3:PRINT "1 

ı"=:PRINT "beenden “, PRINT 12; "PRINT "CL 

B" 

1870 FPRINTIFRINT"S: "ICHR& (245): PRINT"4Ar 
"SCHR$ (243) ı PRINT"Sa "3sPEN 3:PRINT CHR 

5(244) 

1580 PEN 2: FRINT "&:r "sCHR# (244) 

1490 PRINT:FRINT"7:2":1PRINT"loeschen” 
1700 WINDOW SWAP 0,3 

1710 RESTORE 172%: FOR t = 6 TO A:rREAD ei 

anit},colit):NEXT £ 

1720 DATA 32,1,245,1,243,1,244,3, 246,2 

1730 ueZıyaliınzZeiıyäeli 

1740 as=INKEY$ : IF as<CHR# (4%) OR at>cH 

R$(55> THEN 1880 

1750 IF a$="t1" THEN 1970 

1780 IF a$="2" THEN 1980 

1770 IF a$="3" THEN zelscl=0 


1780 IF as="4" THEN z=2:c1=0 
1790 IF as="35" THEN z=3:c1=0 
1800 IF a$="&" THEN z=4:c1=0 


1810 IF af="7" THEN z=0 

1829 bildtx ,„y,bn,Ol=zıbild ix „y,bn,L’=z:i 

OCATE »,y:ıPEN col(z):PRINT CHR$ (signtz)}) 

5:SOUND 1,119,2,5 

1830 xZexKı y2=y 

1840 swex+ieIF »>32 THEN s=eleyey+lı IF y>2 

3 THEN y=23ıx=32 

1850 FOR t=1 TO 20r:NEXT tıGOTO 1740 

18409 IFIINKEY(759I>-1 OR INKEYILI>S-IITHEN 
IF x<32 THEN x=x+1:60T0 1910 ELSE x=1-t 

ye23) #31: yey+rl+iy=23) 16070 1910 

1870 IFÜINKEY{733>-1 DR INKEY (2) >-1) AND 

yiz23 THEN y-y+11G0TO 1910 

1860 IFÜINKEYt74)>=-1 DR INKEY(B) >-1) THEN 
IF x>t£ THEN z=x-11G0T0 1710 ELSE x=3Zıy 

zy=-1-{y=1):6G0TR 1910 

1890 IF{INKEYt72)>-1 OR INKEY(O) >-1)AND 

y>1 THEN y=y-1:60TD 1910 

1900 GOTG 1930 

i910 IF x=4 AND y=1 THEN xexrZıy=y2 

1920 a=sbildix2,y2,bn,DIsLOCATE w2,yZtıPEN 
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eol (a) sPRINT CHR&$ lsigontia))g 
19350 LOCATE 1,„1:PRINT CHR$ (22) H+CHRE 11) L 
OCATE x „y:PEN Z23PRINT CHR$ (248) gs LOCATE 
1,1:PRINT CHR$ (22) +CHR# 10) 
1940 xZexıyZay 
1950 FOR t=1 TO 100:NEXT tıGOTO 1740 
1950 FOR t=1 TO 235:F0OR i=i1 TO F2ebildti, 
t,bn,Ö)=0:bildtii,t,bn,l1)=04NEXT i,tıClLS: 
elz1ı1F0OR t=i TOD Z03a$=INKEYSSNEXT tI50TO 
1730 
1770 SOUND 2,284,0,0,3 
IF7B0 abibrn’=1-clıGotO 2770 
19970 ' 
2000 * 
20910 
2020 ECLS:PEN 2: INPUT"Filename "ın$s IF LE 


Bilder einladen 


|: Nin&) >13 THEN n$=LEFT$ (in$,13) 


2039 PRINT:FRINT "Druscken sie die PLAY- 

Taste" 

2040 CLOSEIN: IF nast>"" THEN OPENIN" !*"+n 

3+"-dh" ELSE OPENIN "!" 

2050 PRINTıPRINT "File "SCHR# (24) en#r CHR 

#(24)3" wird "ı"geladen" 

2040 INPUT #9,bntabtbn)=1 

2070 FOR i=1 TO 251 FOR t=i1 T0 32 STEF 4 

2080 INPUT #9 wer wi=INT (ne/125) ırlawe MO 

D 125ıw2=INT (r1/25)ırZeri MOD 25: Ww3=INT( 

r2/5)ıwder2 MOD 5 

2090 bildit,i,bn, O=wisbildtt,i,bn,t}e=wl 

2100 bildit+1,i,bn,W=enZıbild(tt+i,i,bn,i 

Jay 

2110 bildtt+2,i,bn,Odew3sbild(it+2,i,bn,1 

ya 

2120 bildit+3,i,bn,Ol=w4ıbild(tt+3,i,bn,1 

Jund 

2130 NEXT t,i 

2140 FOR t=1 TOD 10: INPUT#9 ,hi (t) „hi#it)r 

NEXT t 

2150 ELOSEIN:GOTO 2770 

z1&0 ' 

2170 

2180 ' 

2150 PEN Z:CL5: INPUT"Welches Bild snli @ 

bgespeichert werden (0-4) "jbn 

2200 IF ab{bn)=0 THEN PRINTIPRINT "Bild 

ist leer!!!"sFOR t=1 TO S000:NEXT:BUTO 2 

190 

2210 IF bn<ö OR bn>& THEN 2190 

2220 PRINTı INPUT"Filename "in$ı IF LEN(n$ 

3>1% THEN n$=LEFTFinf,13) 

2230 FRINT:PRINT"Druscken sie REC %& PLAY 
„ danach SPACE" 

2240 WHILE INKEY(47)=-1ıWEND 

22750 SPEED WRITE 0 

22650 OPENOUT" !"+n$+"-dh" 

2270 PRINTıPRINT"File "ıCHR$ (24) , n$; CHR$ 
(24) 1" wird "abgespeichert" 

2280 PRINT #9,brn . 

2290 FOR i=1 TO ZSıFOR t=1 TO 32 STEP A 

2300 subild(t,i,bn,O)#125+bildtt+1,i,bn, 

O)#25+bildit+2,i1,bn,03#5+bild(t+3,i,bn,0 

} 

2310 PRINT#F,a1ıNEXT t,i 

2320 FOR t=1 TOD 10:PRINT#?,hi ft) :WRITE#? 

„histt)sNEXT t 


Bilder abspeichern 


programme 


2330 ELOSEODUTIGDTO 2770 
2340 
2350 
2E60 " . 
2370 WINDOW SHAP 0,1 

2380 FOR t=1 TO 23:F0OR i=i1 TO 32sbildii, 
t,b,@)=bildti,t,b,213:NEXT i,t 

2390 ORIGIN 320,0:FÜR i=0 TO 2 STEP ZıFü 
R t=0 TO 320 STEP 4:MOVE t+i,09:DRAW t+i, 
4300,0:MDVE -t-i1,0:DRAW -t-i1 ,400:NEXT t,i 
2400 SPEED INK 25,25: L0CATE 12,2ıPEN 3:P 
RINT’’SPIELENDE!" 

2416 PEN 2: LOCATE 10,5:FPRINT"Ihre Punktz 
ahla "3; USING" HHHEH" 5 

2420 FOR t=t TO 20: a$=INKEY$S:NEXT £ 

24309 IF sc<hi (10) THEN 2570 

2440 LOCATE &,9:PRINT"Gratulation! Ihr E 
rgebris ist":LOCATE 11,11: PRINT"unter de 
n besten 10!" 

2450 GOSUB 1450 

2460 LOCATE 10,14: PEN 3:PRINT"Ihren Name 
n bitte..." 

2470 PEN Z2sLOCATE 10,16:PRINT STRINGF (20 
247) 

2480 nams="" ı 4=0 

2490 a$=INKEYSı IF as=""OR a$=CHRF E34) THE 
N 2490 

2500 IF a$=CHR#(i27I)THEN IF »>0 THEN LOC 
ATE 9+x% ,15: PRINT CHR$ (247): 4=2-1ınams=LE 
FT$inams,x)ıGOTO 2490 ELSE GDOTDO 2490 
2510 IF a$=CHRF(13) THEN 2540. 

2520 IF x<20 THEN xwx+1:LDEATE P+x,16:PR 
INT a$ınamfenamf+as 

2530 GOTD 2470 

2540 IF sc>hi (10) AND sck=hi (9) THEN hick 
i0)=scıhi$(10)=nams 

2550 FÜR t=? TO i STEP —1 

2560 IF sc>hi tt) THEN hitt+l)shi tt)echist 
t+l}=hisit)ıhi (t)=sc-hbiftt)enams : NEXT 
t . 

2570 LOCATE 14,25:PEN 3: PRINT”SPACE drue 
eken" 

2580 WHILE INKEY(47)=-L:WEND 

25970 GOTO 2770 


Spielende 


Paoo ’ 

2616 ' HI-Score Tabelle zeigen 

2u20 ' 

2&30 CLS:PEN 3:L0OCATE 7,1:PRINT"Diamond 
Hunter === TOP TEN" 

2640 PEN 2 


2450 LOCATE 7,23 PRINT BTRINGF(ZB,"-") 
2560 FÜR t=1 TO 10 

2670 LOCATE 5,2+t#2ı PRINT USING" #4" ty ı P 
RINT". "Ihisit). 

2680 LOCATE 30, 2+t#2: PRINT" "HJ USING"’HHHR 
#"ıhi tt) 

2590 NEXT t 

2700 PEN L:ıLOCATE 14,25: PRINT"SPÄCE drus 
eken" 

2710 EVERY 7 GOSUB 3050 

2720 WHILE INKEY(47I)=-irWEND 

2730 r=REMAIN(O} 

2740 ' 
2750 " 
2780 ' 


Titeibild 


Sompute miß 


61 


programme 





2770 MODE 11INK 0,0:PAPER OICLSı BORBER 1 2890 imOrkleläıkZmtäı EVERY 9 GOSUB 3050 
i 2900 FOR zv=0 TO 1 STEF Q 
27860 PRINT CHR$ (223 +"1"4 4 TAGE FLOT -10,-1 Z910 ki=ki1-1-tkiliH) 
0,53FOR t=0 TO 10 STEP ZıMOVE 110+t,368- 2920 k2=k2-1-(k2<14)} 
tıPRIN "DIAMOND HUNTE R"IIıN 2730 INK 3,kl3INK 1,k2 
EXT tz: TAGOFFAPRINT EHR$ (22) +"0"5 Z940 a8=INkEYFı IF VALIaS)>0 THEN IF VAL 
2800 PEN 2:LOCATE 165,8: FRINT CHRS (164) 5" as)<ö6 THEN zv=i 
1985 by" 2950 NEXT zv 
Zz810 PEN 1:LSCATE 14, 10EPRINT"Andromeda- 29&0 r=REMAIN(OJ LINK 1,15: INK 3,11,23 
Saft!" 2970 IF a$="i" THEN 46 
2820 PEN 21 LOCATE 10,13:FRINT"1.. ‚spiele 2980 IF a$="2" THEN 1500 
nm" 2990 IF a$="3" THEN 2020 
2830 LOCATE 10,144 PRINT"2...Bilder erste 3000 IF as="4" THEN 2190 
llen"® 3010 GOTO 2830 
2840 LOCATE 10,15: PFRINT"3...Eilder einla 3020 ' 
den" 3030 ’ Melodie spielen 
2850 LOCATE 10,16rPRINT"4...Bilder abspe 3040 * 
ichern" 3050 isi+1 s IF i>144 THEN ii 
2BAG LOCATE 10,17: PRINT"S...High-Scaore T 3080 IF soli,0)<>0 THEN ki=24ıSCUND 130, 
belle" so{1,0),0,0,1 
2870 LOCATE 1,24: PRINT SPACEF(LOI+"Ihre 3070 IF so(i,1)<>0 THEN k2=24:150UND 127, 
Punktzahl "FUSING"HRRRR" sc “011,1),0,0,1 
2580 FDR t=1 TD Z0ra&=INKEYSINEXT £ _ 3080 RETURN 
CHECK Vi:PRUEFSUMMEN: BIO- 8491 339 80- 96: 9517 1096- 11001 14371 |! 2090- 2100: 50456 
850- Bdädı A170 100- 1101 96504 1110- 1120: #1479 | 2110- 21201 845245 
ZEILENNR.ı SUMMEN 870- BBOı 59242 4120 1301 17704 | 1130- 11404 687348 | 2130- 2140: 4667 
10- 11: 37 B70- 700 67035 140- 1501 32575 | 1150- 11601 49852 | 2159- 21601 2483 
12- 131 29510 F10- 9201 70168 4160- 1701 57007 | 1170- 11804 25194 | 2170- 21808 25056 
14- 15: 20955 930- 97401 48906 IB0- 1901 20125 | 1185- 1187: Z444g | 2170- 22004 25548 
16- 171 33476 950- 9adı 59138 200- 210: 1r0#i | 1190- 12001 Aaysı | 2210 22201 50286 
18- 191 55528 979- 9B0: 70800 220- 230: 79301 | 1210- 12201 Z1451 | 2730- 22408 71462 
20- z21ı 16658 990- 1000: 6047& 240- 250: 43432 | 1230- 12403 30640 | 2250- 2260: 11167 
22- 22: 27765 1010- 10201 49234 260- 270: 70503 | 1250- 12504 18803 | 2270- 2280, 54491 
24 251 23643 1030- 10401 49149 280- 290: 27785 | 1270- 12804 25193 | 2270- 2300: 33349 
30- 401 14846 1050- 10601 69451 300- 310 220709 | 1290- 1300: 38224 | 2310- 23201 285250 
SO. &0: 17711 1070- tOBdı 377785 320- 3301 8745 1310- 137201 zg6 | 2330- 23401 2234 
70- BO 12364 1090- 1100r 67746 390- 3501 45774 |1330- 13401 48879 | 2350- 2360: 10024 
90- 100: 55271 1110- 11201 68992 Z60- 370:1106633 | 1350- 13601 25493 | 2370- 2380: 3084 
110- 120ı 41239 1130=- 11401 72258 390- 390; S57asa 1370- 13804 43170 2390- 2400: 77951 
130” 1401 37917 1150- 11501 69471 400- #101 3873 | 1390- 14001 584 | 2410- 2420: 92703 
150- 1601 42385 1170- i1B04 69392 420- 430: 39341 | 1410- 1420: asa25 | 2430- 27440: 62234 
170- 180: 34645 1190- 12001 49045 440- 4501 165486 | 1430- 14401 15526 | 2450- 24801 43715 
190- 200: 25938 1210- 12201 71932 460- 470: 68781 | 1450- 146501 44752 | 2470- 24801 27507 
210=- 72201 6374 1230- 12401 59563 490- 490: 49170 19470- 14801 32452 2490- 25004 105098 
230- 240: 46749 1250- 1260: 59660 S509- 510: 12710 |1490- 15001 13943 | 2510- 2520: 18238 
250- 2Z2&0: 18977 1270= 12801 89530 520=- 530r 41813 1510- 1520: 21294 2530- 2540: 440670 
270- 280: 52407 1270- 13003 49286 540- 5501 32429 | 1530- 15405 24300 | 2550- #560: 54255 
270-“ 3001 75534 1310- 137201 3531& Sul- 570: 525382 1550- 15601 53294 2570- 25B0ı 38755 
310- 320: 67214 1330- 13401 238902 S590- 5901: : 15804 1570= 1590: 47109 2590- 26001 1525 
330- 3401 77315 1350- 13501 33096 800- 6101 39004 | 1570- 16001 68400 | ZH10- 26201 34444 
350- 360: 77419 1370- 13801 27303 620= 630: 42551 |1&10- 16208 67152 | 2630- 26401 .54317 
370- 36011028559 1390- 14004 1&56B 640- #501 Z2u23 1630- 16401 44204 2550- 2540: 13163 
390- 4001 34722 1410- 1420: 8377 &60- 570: 56878 1550- 1450: 10563 zu7n- 2880: 106934 
410- 420: 57644 1330=- 14401 11P1& GRO- 5901 95544 1570- 165801 38705 2490- 27001 31456 
430- 4401 897026 1450- 14501 49321 F10- 730: 74975 1&90- 1700: 18127 2710- 2720: 11644 
450- 460: 95207 1370- 1480: 35773 740- 750: 4052 | 1710- 17201 038 ! 2730- 2740: 5078 
#70- 4801122716 1490- 15001 26431 760- 7&ils 53606 | 1730- 17406 38504 | 2730” 2760ı #143 
A470- 500: 95552 1510- 1520: 44224 762“ 78651 77098 1750- 17801 20395 2770- 2780: 51841 
310- »20:1109417 1530- 154301 20813 I70- 7901 75274 1770- 1790: &24t2& 2B00- 2610: 545889 
SS0- 540: 1181 1550- 15401 27600 790- 800: 29642 | 1770- 18001 422g | 2820 2830: 62643 
370- 5501 19405 GESAMTCHECKSUMME: 15381 BZO- 8408: 5B& 1830- 1840: 1014 ZB40- 2870: 57730 
570- 500: 31580 850- B&01 49293 | 1850- 1850: 77a75 | 7880- 2890: 66611 


#10- 620: 39516 2 B70- 880: 41795 |1870- 18803 53533 | 2700- 27108 34706 
630- 6401 46347 Teil 2: 870- 7001 386 |1B90- 1900: AH3A6 | 2720- 2930: Z6au8 


650” 6401 25385 2910- 920: 38327 1910- 19204 30355 2740- 27508 16472 


&870- 5801 24215 CHECK V14 PRUEFEUMMEN: 9350- 940: 30028 | 1930- 1940, 4.977 | 2760- 29770: 23890 
890- 7001 47728 750- 960: 63261 | 1950- 19603 7a0ıg | 2790- 29901 21711 
710- 7201 A6335 ZEILENNR.ı SUMMEN 770- 9801 37785 | 19770- 1980: 32030 | 3000- 30108 10241 
730- 740: 25738 S- 4 1174 3990- 1000: 440893 1990- 2000: 18272 3020- 30630: 17009 
750- 7&0ı 18551 F- Bı 28571 1010- 1020: 24077 2010- 20204 4587% 3040- 3050: 44477 
770- 7801 33618 9 10: 386 1030- 10404 14167 |2030- 20403 101078 | S9&0- 30703 35042 
790- 8601 44397 20- 30: 4149 1050- 1060: 52608 | 2050- 2040: 45092 | ?089- es 0 z01 | 
Biü- 8201 21221 40- 50: 61172 1070- 10803 10871 | 2070- 2090: 98023 | 777772777777277227 - 
60- 70: 19908 BESAMTCHECKSUMME: 48671 
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report 


| Was gibts Neues auf dem Software-Markt? 






| | Dasist so ungefähr alles, was in der Anlei- 
| itung als Hinweis zu finden ist. Darüber 
| hinaus erfährt der User lediglich, daß er 
‚sich bei dem Versuch, eine Mailbox anzu- 
| wählen, in der Nummer geirrt hat und 
ganz plötzlich in ein wildfremdes Compu- 
ternetz geraten ist. Auf dem Bildschirm ist 
|tediglich LOG ON zu sehen. Was nun? Was 
‚tun? Das Passwort ist nicht bekannt. Der 
| Name der Firma auch nicht. Es gibt auch 
|" keinerlei Hinweise, Regeln oder sonstige 
| ı Backgroundinformationen. Aber es reizt 
| natürlich, mehr über das fremde und ge- 
: : heimnisvolle Computersystem herauszu- 
| : finden. Aber wie? Das muß man - wie ein 
| echter Hacker - schon selbst herausfin- 

: den. 
: Der Anwender steckt nun mitten in einer 
für ihn unklaren Situation und muß sich 
: ganz auf sein eigenes Geschick und seine 





1 WAY. OF THE EXPLODING FIST 


“Ein echter Renner. Lange Zeit Nummer 
‚ Eins in den Charts. Fantastische Anima- 
tion, Spielwitz, Action, die Spaß macht. 
“Die Rede ist von „THE WAY OF THE EX- 
: PLODING FIST“ (Spectrum/G-64/Schnei- 
: der). MELBOURNE HOUSE ist ein Meister- 
|, werk gelungen, mit dem eigentlich nur 
: noch IMAGINE’S ‚Ye Ar Kung-Fu“ mithal- 
‚ ten kann. 
. Wir haben uns die Schneider-Version des 
„Exploding Fist“ zu Gemüte geführt. Herr- 
: lich die Graphic, der fernöstliche „Sound“ 
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eigene Logik verlassen. 

Entwickelt wurde HACKER von Steve 
Gartwright, der schon einige Spiele-Hits 
erdacht hat. 

Erhältlich ist HACKER für Atari 800 XL, C- 
64, Schneider CPG 464, Sinclair Spec- 
trum und Apple Hi. 

Technische Besonderheiten 


%* Mit Joystick und Keyboard zu spielen | 


%* Farbige Grafik mit Vo!l-Animation 

%* Thematisch der echten „Hackerei“ an- 
gelehnt, wobei die Realität jedoch im 
Sinne des Spielens stark überzogen 
wurde. 

* Wie auch bei echten Hackern, ist es 
nicht möglich, eine Zwischenspeiche- 
rung durchzuführen. Wenn der Spieler 
einen Security-Check nicht passieren 
kann, wird er aus dem System heraus- 
geworfen und muß von vorn beginnen. 


„Schneider CPC - 
und der genaue Bewegungsablauf der 
kampfenden Personen. 

Sie treten gegen den Computer an: 

Man beginnt als Neuling (Novice); hat 
man den Gegner bezwungen, erreicht 
man den Ersten Dan. Wer sehr qut „trai- 
niert“, der bringt es zum Großen Meister, 
der schafft den ‚Weg zur explodierenden 
Faust“. 

Hersteller: MELBOURNE HOUSE. Veririeb: 
Weeske Software, Polsdamer Ring 10, 

7150 Backnang 


 Sompuhe mib 


AGTIVISION verüffentlicht weitere 
Adaptienen von 


Mindshadow 


‚Im Herbst, genauer gesagt im Oktober und No- 


vernber, veröffentlichte ACTIVISION weiter 
Adaptionen ihres erfolgreichsten Adventures 
als Cassettenversionen für den 6-64 und 
Schneider GPG 464. 


MINDSHADOW ist fast schon ein „lebendi- 
ger Roman“, in dem hervorragende Grafi- 
ken mit einem spannenden Abenteuer 
voller Intrigen verbunden werden. 


WER BIST DU? 
WO BIST DU? 
WAS WIRST DU JETZT TUN? 


Du kannst Dich an nichts mehr erinnern. 
Du befindest Dich an einem wüstenähnli- 
chen Strand. Aber an welchem? 

Du willst Deine Identität um jeden Preis 
herausfinden. Dabei führt Dich die Reise 
rund um die Welt und bringt Dich der 
Wahrheit immer näher. Einer Wahrheit 
voller Intrigen und Gefahren. 

Mit Hilfe des mysteriösen LGondors 
kommst Du dem Verräter immer näher ... 


Technische Besonderheiten: 

‘%* iiber 80 Bilder in hochauflösender Gra- 
fik. 

#* Der enorme Wortschatz erlaubt eine 
großzügige Kommunikation - bis hin 
zu kompletten Sätzen. 

%* Mit ausführlichen Bemo-Programm 

% Heip-Modus - es werden Hinweise ge- 
geben, wenn der Spieler nicht mehr 
weiterkommt. Allerdings stellen diese 
Hinweise keine Lösungen dar. 

%* Hint-Book erscheint demnächst 


Hersteller: 

Activision Home Computer Software 
Postfach 70.06 80 

2000 Hamburg 76 
















Der alte Magier will einen Zaubertrank brauen. Dazu 
benötigt er allerlei Zutaten. 

Also ist er unterwegs, um Spinnen, Kraken, Pilze und 
andere Gegenstände einzusammeln. Doch Hexen, Fle- 
dermäuse und anderes Ungetier versuchenihn daran zu 
hindern. Der Magier ist aber nicht hilflos! 

Die Monster kann er mit Zaubersternen abwehren. Hat. 
er eine Zutat gefunden, so muß er sie in den Topf wer- 
fen. Ein Spaß für die ganze Familie. 
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Das TENNIS-Fieber hat uns alle ergriffen. Nicht zu- 


letzt durch die großartigen Erfolge von Boris Becker ist. 


der „Weiße Sport“ zu einem Volkssport geworden! In 
unserem Game treten zwei Tennis-Cracks gegeneinan- 
der an; sie schenken sich nichts; um jeden Ball wird ge- 
kämpft. Das Spiel basiert auf den Grundregeln des int- 
ernationalen Tennis’. Hart umkämpfte Tie-Breaks sind 
ebenso: an. der Tagesordnung: wie ein zermürbendes 
Fünfsatz-Spiel. 

Sie haben hierbei die Möglichkeit, Ballgeschwindigkeit 
und Ballwinkel zu variieren. Aufgeschlagen wird per 
„Knopfdruck“. Ein Superspiel in 3 D-Effekt. 


er Bere | 
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